Реализуйте рекурсивную функцию вычисления факториала натурального числа. напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. к примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1. формат входных данных на вход ваша программа получает одно число — n (1≤n≤8)(1≤n≤8). формат выходных данных выведите одно число — факториал числа n.
function fact(n:integer):longint;
begin
if n=1
then fact:=1
else fact:=n*fact(n-1);
end;
begin
write('n = ');
readln(n);
writeln(n,'! = ',fact(n));
end.
Пример:
n = 6
6! = 720
function f(n: int64): int64;
begin
if(n = 1) then f := 1
else f := f(n - 1) * n;
end;
begin
readln(n);
write(f(n));
end.