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

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

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