Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
var A,B,i,sum:integer;
begin
read(A,B);
sum:=0;
for i:=A to B do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.
Вопросы в ЛС
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
