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

Question

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

---

Comments

язык?

---

Паскаль\

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.

Comments

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

---

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

---

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