На интервале от a до b определить количество четных - вопрос №41501677 от EvaMr 02.07.2022 21:13

Question

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

EvaMr · Answer

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....