На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
