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

aliyeva02 aliyeva02    2   19.05.2019 02:00    0

Ответы
kuliksvera kuliksvera  12.06.2020 07:15

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика