[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1044
Var
  M: Array[1..5,-9..45] of LongInt;
  I,J,K,R,A: LongInt;
Begin
  R:=0;
  Readln(A);
  FIllChar(M,SizeOf(M),0);
  For I:=0 to 9 do
    M[1,I]:=1;
  For I:=2 to 5 do
    For J:=0 to 9*I do
      For K:=1 to 10 do
        M[I,J]:=M[I,J]+M[I-1,J-K+1];
  A:=A div 2;
  For I:=0 to 9*A do
    R:=R+M[A,I]*M[A,I];
  Writeln(R);
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 805