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