Вычислить сумму чисел от 10 до 70, чисел кратных 4

Решим задачу, составив программу на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть s - сумма чисел ряда, которую надо найти, а х - числа от 10 до 70. Начальное значение суммы s будет равным нулю. Так как чисел много, то будем использовать в программе оператор цикла с параметром for. По условию задачи числа суммируются, начиная с числа 10. Последнее слагаемое в сумме - число 70.

Программа может выглядеть так:

program zadacha;

uses crt;

var s, i: integer;

begin

s:=0; {Задание начального значение суммы s}

for i:=10 to 70 do begin

if i mod 4=0 {Поиск чисел, кратных 4}

then s:=s+i; {Вычисление суммы чисел, кратных 4}

end;

writeln ('s=', s) {Вывод результата суммы s чисел, кратных 4}

end.