Вот решить не могу! Надо по данному примеру вот этой программы сделать 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 -