program z1;
var i,k: integer;
begin
k:=0;
for i:=10 to 99 do if i mod 3 = 0 then k:=k+1;
write(k)
end.
Объяснение:
Цикл для перебора всех двузначных чисел
Если число делится на 3 без остатка, то увеличиваем k на 1
mod - остаток от целочисленного деления
