Дан промежуток от а до b. найти сумму чисел которые делятся на 4 в этом промежутке.

pascal

Question

Меркурия

6 июня, 03:17

+3

Ответы (1)

Знаете ответ на вопрос?

Семион · Answer 1

Var a, b, s, i:integer;

begin

s:=0;

read (a, b) ;

for i:=a to b do if (i mod 4 = 0) then s:=s+i;

write (s) ;

End.

Дан промежуток от а до b. найти сумму чисел которые делятся на 4 в этом промежутке.pascal