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

Question

Информатика

Тура

24 февраля, 09:57

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

+4

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