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

Question

Информатика

Аря

6 августа, 13:09

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

+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.