Сколько трёхзначных чисел делятся на 4, но не делятся на 3??
Var k:integer; begin for var i:=100 to 999 do if (i mod 4 =0) and (i mod 3 <> 0) then inc(k); writeln(k); end. ОТВЕТ 150