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.

Answer 2

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

Answer 3

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

Answer 4

Хорошо

Answer 5

Он и нужен