var i,k:integer;
begin
i:=0;
for i:=10 to 99 do begin
if (i mod 3=0) then k:=k+1; end;
writeln('Количество двухзначных чисел кратных 3= ',k);
end.
Если понравилось решение - ставь 5 звезд и "Лучший ответ"!
