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

Question

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

Comments

Какой язык?

Answer 1

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

var
  n,i,p,s:longint;
begin
  Write('Введите значение n<15 -> ');
  Readln(n);
  p:=1; s:=0;
  for i:=1 to n do
  begin p:=p*i; s:=s+p end;
  Writeln('Сумма факториалов равна ',s)
end.

Тестовое решение:
Введите значение n<15 -> 5
Сумма факториалов равна 153