Написать программу вычисления факториала с использованием рекурсивной подпрограммы

Question

Информатика

Клариса

14 июня, 10:23

Написать программу вычисления факториала с использованием рекурсивной подпрограммы

+2

Ответы (1)

Знаешь ответ?

Милютина · Answer 1

Var n:integer;

Function Factorial (n : Integer) : Integer;

Begin If n = 1 then Factorial : = 1

Else Factorial : = n*Factorial (n-1);

End;

begin

readln (n);

write (factorial (n));

end.