Найти сумму целых положительных чисел из промежутка от а до в, кратных 4 (значения переменных а и в вводятся клавиатуры)

bossHor bossHor    2   21.05.2019 08:20    5

Ответы
okcanaceninap06wvq okcanaceninap06wvq  15.06.2020 08:50

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.

 

Вопросы в ЛС

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика