Реализуйте рекурсивную функцию вычисления факториала натурального числа.

Напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. К примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1.

Формат входных данных

На вход ваша программа получает одно число - n (1≤n≤8) (1≤n≤8).

Формат выходных данных

Выведите одно число - факториал числа n.

Question

Информатика

Каллисфения

30 декабря, 02:31

Реализуйте рекурсивную функцию вычисления факториала натурального числа.

Напоминаем, что факториалом числа называется произведение всех натуральных чисел, меньших или равных ему. К примеру, факториал 55 равен 5⋅4⋅3⋅2⋅15⋅4⋅3⋅2⋅1.

Формат входных данных

На вход ваша программа получает одно число - n (1≤n≤8) (1≤n≤8).

Формат выходных данных

Выведите одно число - факториал числа n.

+1

Ответы (2)

Знаете ответ на вопрос?

Марин · 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.