На интервале от a до b определить количество четных - вопрос №15023544 от irinslab 16.11.2021 05:24

Question

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

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