Question

На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.

Answer 1

var a,b,k,count:integer;

begin

readln (a,b);

for k:=a to b do

begin

if (k mod 2 =0) and (k mod 4=0) then count:=count+1;

end;

writeln (count);

end.