Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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