Помогите с Паскалем. вычислите p = (n+1) ! (Факториал)

Question

Информатика

Саломея

15 мая, 08:25

Помогите с Паскалем. вычислите p = (n+1) ! (Факториал)

+1

Ответы (1)

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

Просдока · Answer 1

Program n1;

var n: integer;

function fact (x: integer) : real;

begin

if x=0 then fact:=1 else fact:=fact (x-1) * x;

end;

begin

readln (n) ;

write (fact (n+1)) ;

end.