Question

Срочно!!! Даю максимальный балл!!

Answer 1

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.

Answer 2

Можете объяснить действия в частности? Что и как написано ,как это объяснять?))

Answer 3

первый цикл запускаем для того, чтобы сложить все факториалы, а второй - для того, чтобы высчитать сами факториалы.

Answer 4

далее выводим то, что у нас получилось.