Помогите Рекурсии! Опции

[nekkit]

--------------------------------------------------------------------------------
Вот решить не могу! Надо по данному примеру вот этой программы сделать 2.
Пример:

Program Rekurs;
Var
  N : integer;
  F : Longint;
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1 
    then
      ReсFact := 1
    else
      ReсFact := N*ReсFact(N-1);
End;
Begin
  writeln('Введите число N > ';
  read(N);
  F := RecFact(N);
  writeln('Для числа ',N,' значение факториала равно ',F);
End.

Не могу сделать их еще надо в рекруссивном и интеративном варианте сделать обе.

Интеративном т.е чтобы постоянно спрашивало
до определенного числа раз.

1) На печать выводится сказка ”О попе и его собаке” определенное число раз. ("У попа была собака, он ее любил. Она съела кусок мяса - он ее убил. В землю закопал, надпись написал ...)


2) Напишите рекурсивный алгоритм нахождения степени числа. ах=ах-1*а, а0=1\


Зарание всем благодарен.

Сообщение отредактировано: volvo - 3.11.2006 19:22