Решение задачи ** использование вложенных циклов Буду рад, если увижу решение данной...

Question

Решение задачи на использование вложенных циклов
Буду рад, если увижу решение данной задачи.

---

Answer 1

Var  i,j,n,sum,a:integer;begin  readln(n);  for i:=1 to n do  begin    a:=1;    for j:=1 to i do      a:=a*i;    sum:=sum+a;  end;  writeln(sum);end.

Comments

Как же бесит, что в ответе код всегда вставляется криво, а в комментариях нормально

---

var
i,j,n,sum,a:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=1;
for j:=1 to i do
a:=a*i;
sum:=sum+a;
end;
writeln(sum);
end.

---

Сейчас проверим, но с виду, мне кажется, Вы правильно составили ). Ловите благодарность.