[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1009
Var
  N,K: LongInt;

Function RecZero(J:LongInt): LongInt; forward;
Function RecDigit(J:LongInt): LongInt; forward;

Function RecZero(J:LongInt): LongInt;
Begin
  If J=1 then begin
    RecZero:=K-1;
    Exit;
  End;
  RecZero:=(K-1)*RecDigit(J-1);
End;
Function RecDigit(J:LongInt): LongInt;
Begin
  If j=1 then begin
    RecDigit:=K;
    Exit;
  End;
  RecDigit:=(K-1)*RecDigit(J-1)+RecZero(J-1);
End;
Begin
  Readln(N,K);
  Writeln(RecZero(N));
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 1004