Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)

Ниже — простой вариант программы на Pascal, которая вычисляет сумму квадратов всех целых чисел от 1 до 100 включительно.

Идея:
Заводим переменную s для суммы, в цикле i пробегает от 1 до 100, на каждом шаге прибавляем i*i.

pascal
Копировать код
program SumOfSquares;
var
  i: Integer;
  s: LongInt;
begin
  s := 0;
  for i := 1 to 100 do
    s := s + i * i;
  writeln('Сумма квадратов чисел от 1 до 100 = ', s);
end.

Пояснения к программе:

• i — счётчик цикла.

• s — накопитель суммы. Тип LongInt выбран с запасом, чтобы точно хватило диапазона.

• Цикл for i := 1 to 100 do выполняется 100 раз.

• На каждом шаге добавляется квадрат текущего числа: i * i.

• В конце выводится полученная сумма.