Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Вводится натуральное число. Найти сумму квадратов всех натуральных чисел от 1 до этого числа.

Ответ оставил Гость

VAR
   n, sum, i : LongInt;
BEGIN
   Read(n);

   For i := 1 to n do
      sum := sum + Sqr(i);

   Write(sum);
END.