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

pascal

Question

Анастасей

14 марта, 07:45

+5

Ответы (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