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

Question

Информатика

Феофил

8 августа, 20:29

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

+3

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