Написать программу для вычисления выражения: s=1!+2!+3! + ... + 15!

Question

Информатика

Марлена

10 мая, 06:19

Написать программу для вычисления выражения: s=1!+2!+3! + ... + 15!

+5

Ответы (1)

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

Дуня · Answer 1

Program pr1;

const n=8;

function factorial (n:integer) : integer;

begin

if (n<=1) then factorial:=1

else factorial:=n*factorial (n-1) ;

end;

begin

WriteLn ('n!=', factorial (n)) ;

end.