Реализуйте рекурсивную функцию вычисления факториала натурального числа. Напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. К примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1...
Реализуйте рекурсивную функцию вычисления факториала натурального числа.
Напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. К примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1.
Формат входных данных
На вход ваша программа получает одно число — n (1≤n≤8)(1≤n≤8).
Формат выходных данных
Выведите одно число — факториал числа n.
Гость
Ответ(ы) на вопрос:
Гость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
Гость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.
Не нашли ответ?
Похожие вопросы