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

Question

Информатика

Иулиана

17 ноября, 08:33

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

+3

Ответы (1)

Знаете ответ?

Алена · 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.