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

Question

Информатика

Федуня

26 января, 14:11

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

+5

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