Question

Напишите программу, подсчитывающую сумму квадратов всех чисел от 1 до n.

Answer 1

program SumOfSquares;
var   n, i, sum: integer;
begin   write('Введите значение n: ');   readln(n);
  sum := 0;
  for i := 1 to n do   begin     sum := sum + i * i;   end;
  writeln('Сумма квадратов чисел от 1 до ', n, ' равна ', sum); end.