estengseant
Var s,n,i,k,l: integer; begin writeln('введите n'); readln(n); for i:=1 to n do begin l:=1; for k:=1 to i do begin l:=l*k; end; s:=s+l; end; writeln(s); end.
1 votes Thanks 0
kroff
Можете объяснить действия в частности? Что и как написано ,как это объяснять?))
estengseant
первый цикл запускаем для того, чтобы сложить все факториалы, а второй - для того, чтобы высчитать сами факториалы.
estengseant
далее выводим то, что у нас получилось.
Answers & Comments
begin
writeln('введите n');
readln(n);
for i:=1 to n do
begin
l:=1;
for k:=1 to i do
begin
l:=l*k;
end;
s:=s+l;
end;
writeln(s);
end.