Дано натуральное число N. Разработать схему алгоритма для вычисления суммы ряда:...

Question

Дано натуральное число N. Разработать схему алгоритма для вычисления суммы ряда: S=1!+2!+3!+…+N! (N>1)
Операцию вычисления факториала использовать нельзя!
Протестировать алгоритм для N=3 и N=5
писать на Pascal'e

Answer 1

var
  f, s: longint;
  n, i: byte;
begin
  write('N = '); readln(n);
  f:= 1;
  for i:=2 to n do
    begin
    f:= f * I;
    s:=s+f;
    end;
  writeln('Summ = ', s);
end.