На интервале от a до b определить количество четных - вопрос №15023544 от МсПолинэ 21.02.2020 20:19

Question

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

МсПолинэ · 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....