Вычислить сумму чисел от 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.