СОставить программу вычисления суммы 1!+2!+3!_ ... + n! (n<15)

Question

Информатика

Евномия

15 августа, 06:31

СОставить программу вычисления суммы 1!+2!+3!_ ... + n! (n<15)

+4

Ответы (1)

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

Перпетуя · Answer 1

Ответа нет, значит будет Паскаль ...

var

n, i, p, s:longint;

begin

Write ('Введите значение n ') ;

Readln (n) ;

p:=1; s:=0;

for i:=1 to n do

begin p:=p*i; s:=s+p end;

Writeln ('Сумма факториалов равна ', s)

end.

Тестовое решение:

Введите значение n 5

Сумма факториалов равна 153