Вычисление суммы четных натуральных чисел в интервале от 1 до n - Pascal (80491)

Формулировка задачи:

1. Вычисление суммы четных натуральных чисел в интервале от 1 до n. (3 варианта программ - с использованием цикла WHILE, цикла REPEAT и цикла FOR). n ввести со стандартного ввода. Значение cуммы вывести на экран.

Решение задачи: «Вычисление суммы четных натуральных чисел в интервале от 1 до n»

Листинг программы

var n,i,s:integer;
begin
write('Введите значение n=');
readln(n);
s:=0;
i:=2;
while i<=n do
 begin
  s:=s+i;
  i:=i+2;
 end;
writeln('Цикл while s=',s);
s:=0;
i:=2;
repeat
s:=s+i;
i:=i+2;
until i>n;
writeln('Цикл repeat s=',s);
s:=0;
for i:=1 to n div 2 do
s:=s+2*i;
writeln('Цикл for s=',s);
end.

Объяснение кода листинга программы

Объявляется переменная n для хранения значения n (верхняя граница интервала), i для использования в циклах и s для хранения суммы четных чисел.
Запрашивается пользователем ввод значения переменной n.
Инициализируется переменная s нулём.
Инициализируется переменная i значением 2.
Выполняется цикл while для вычисления суммы четных чисел от 2 до n:
- Пока i меньше или равно n, выполняются следующие действия:
  - К сумме s прибавляется значение i.
  - Переменной i добавляется 2.
Выводится сумма четных чисел, вычисленная с помощью цикла while.
Значение переменной s снова устанавливается равным нулю.
Значение переменной i снова устанавливается равным 2.
Выполняется цикл repeat-until для вычисления суммы четных чисел от 2 до n:
- Повторять следующие действия, пока i меньше n:
  - К сумме s прибавляется значение i.
  - Переменной i добавляется 2.
Выводится сумма четных чисел, вычисленная с помощью цикла repeat-until.
Значение переменной s снова устанавливается равным нулю.
Цикл for выполняется для вычисления суммы четных чисел от 2 до n:
- Переменная i проходит значения от 1 до n деленное на 2 включительно.
- К сумме s прибавляется удвоенное значение i.
Выводится сумма четных чисел, вычисленная с помощью цикла for.
Завершение программы.