Question

Реализуйте рекурсивную функцию вычисления факториала натурального числа. напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. к примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1. формат входных данных на вход ваша программа получает одно число — n (1≤n≤8)(1≤n≤8). формат выходных данных выведите одно число — факториал числа n.

Answer 1

Var n:integer;
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

Answer 2

Var n: int64;
 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.