Найти сумму квадратов первых n натуральных чисел. паскааль

Question

Найти сумму квадратов первых n натуральных чисел. паскааль

Answer 1

Var
  sum,n:longint;
begin
  writeln('n=? ');
  readln(n);
  sum:=0;
  // основной цикл
  for var i:=1 to n do
    sum:=sum+i*i;
  writeln('При n=',n,' сумма квадратов первых n чисел = ',sum);
end.

Comments

Спасибо огроменное тебе.

---

АБС паскаль, если что, не все паскали понимают for var i:=

---

Хорошо

---

Он и нужен