Question

найти кол-во всех трехзначных чисел, кратных 6 и заканчивающихся на 4.
Pascal

Answer 1

var

_counter, i : integer;

begin

for i := 100 to 999 do

if ((i mod 6 = 0) and (i mod 10 = 4)) then

_counter := _counter + 1;

writeln(_counter);

end.