var
i, c: integer;
begin
c := 0;
for i := 100 to 999 do
if i mod 3 = 0 then inc(c);
Writeln(c, ' трехзначных чисел кратных 3.');
end.
