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

Question

Информатика

Андроний

25 апреля, 05:50

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

+3

Ответы (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.