На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад