Целое натуральное, рекурсия, Паскаль

[Christian]

Целое натуральное, рекурсия, Паскаль

если будет время то посмотрите пожалуйста эту задачу:

Задано целое натуральное число, определить является ли оно факториал числа n, чему равна n. Использовать рекурсивную функцию вычисления факториала

 

[shrek=)]

вот как-то так:

var
a:integer;
function fact(b:integer):integer;
var
c:longint;
i:integer;
begin
c:=1;
for i:=2 to b do begin
c:=c*i;
if c=b then break;
fact:=i+1;
end;
end;
begin
writeln ('Input the number');
readln (a);
writeln (a,' - fact - ',fact(a));
readln
end.

 

[Vladimir_S]

Не, Миш - не пойдёт. Тут фишка в том, что требуется рекурсивная функция, т.е. такая, которая из себя сама себя вызывает. Типа такой:

Function factorial(n:integer): Longint; 
Begin 
 If n=0 then factorial:=1 else factorial:=factorial(n-1)*n; 
End;