Question

Сколько трёхзначных чисел делятся на 4, но не делятся на 3??

Answer 1

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