Язык Паскаль найдите сумму квадратов всех целых чисел от 1 до 15

Чтобы найти сумму квадратов всех целых чисел от 1 до 15 на языке Паскаль, можно использовать простой цикл. Для этого мы будем последовательно возводить каждое число от 1 до 15 в квадрат и суммировать их.

Вот пример программы на Паскале, которая решает эту задачу:

pascal
program SumOfSquares;
var
  i, sum: Integer;
begin
  sum := 0;  { Инициализируем переменную суммы }
  
  for i := 1 to 15 do  { Проходим по всем числам от 1 до 15 }
    sum := sum + i * i;  { Прибавляем квадрат текущего числа к сумме }
    
  writeln('Сумма квадратов чисел от 1 до 15 равна: ', sum);
end.

Объяснение программы:

1. Объявление переменных:

   • i — переменная для цикла, которая будет принимать значения от 1 до 15.
   • sum — переменная для хранения суммы квадратов чисел.

2. Инициализация суммы: Сначала sum устанавливается в 0, потому что мы начинаем вычисления с нуля.

3. Цикл for: Цикл проходит от 1 до 15. На каждом шаге цикла текущий индекс i возводится в квадрат, и его значение прибавляется к переменной sum.

4. Вывод результата: В конце программа выводит результат — сумму квадратов всех чисел от 1 до 15.

Расчет вручную:

Сумма квадратов чисел от 1 до 15 выглядит так:

Это равно:

Таким образом, результат выполнения программы будет: 1240.