Question

Дано натуральное число N. Разработать схему алгоритма для вычисления суммы ряда: S=1!+2!+3!+..N! (N>1)

Answer 1

Program Pr1;
uses crt;
var s,b:real;
i,a,n:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
s:=0;
for i:=1 to n do begin
b:=1;
for a:=1 to i do b:=b*a;
s:=s+b;
end;
writeln(s);
end.