Для решения задачи о вычислении суммы квадратов чисел от 1 до n, можно написать программу на языке Паскаль. Давайте подробно разберём, как это можно сделать.
Задача
Дано натуральное число ( n ), не превосходящее 100. Требуется вычислить сумму квадратов первых ( n ) натуральных чисел, то есть ( 1^2 + 2^2 + \ldots + n^2 ).
Решение
Для вычисления этой суммы можно воспользоваться циклом, который последовательно будет добавлять к общей сумме квадрат каждого числа от 1 до ( n ).
Программа на Паскале
program SumOfSquares;
var
n, i, sum: integer;
begin
{ Чтение значения n }
readln(n);
{ Инициализация переменной для хранения суммы }
sum := 0;
{ Цикл от 1 до n }
for i := 1 to n do
begin
{ Добавление квадрата текущего числа к сумме }
sum := sum + i * i;
end;
{ Вывод результата }
writeln(sum);
end.
Объяснение программы
Переменные:
n
— вводимое число, до которого нужно считать сумму квадратов.
i
— переменная цикла.
sum
— переменная для хранения суммы квадратов.
Чтение входных данных:
- Используем
readln(n)
для считывания значения ( n ).
Инициализация:
- Устанавливаем начальное значение
sum
равным 0, так как до начала вычислений сумма квадратов нулевая.
Цикл:
for i := 1 to n do
— цикл перебирает все числа от 1 до ( n ).
- Внутри цикла
sum := sum + i * i
— к накопленной сумме добавляется квадрат текущего числа i
.
Вывод результата:
writeln(sum)
выводит окончательное значение суммы квадратов.
Пример выполнения
Если ввести ( n = 2 ), программа выполнит следующие шаги:
- Инициализация:
sum = 0
- При ( i = 1 ):
sum = 0 + 1 * 1 = 1
- При ( i = 2 ):
sum = 1 + 2 * 2 = 5
- Вывод: 5
Таким образом, программа корректно вычисляет сумму квадратов чисел от 1 до ( n ) и выводит её.