Question

Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

Answer 1

program SummaKv;

var
  n, i: integer;

begin
  n := 0;
  for i := 1 to 100 do
    n := n + sqr(i);
  writeln('Сумма квадратов первой сотни чисел = ', n);
end.

Здесь квадрат числа 100 так же включается в сумму.