Uses crt; var x,k:integer; begin k:=0; for x:=10 to 99 do if (x mod 2=0) and (x mod 3=0) then inc(k); writeln('Количество двухзначных чисел, кратных 2 и 3: ',k); end.