Question

Составьте программу вычисления количества двузначных чисел,которые кратны 2 и3

Answer 1

var i, n: integer;
begin
   for i := 10 to 99 do
      if (i mod 2 = 0) and (i mod 3 = 0) then
          n := n + 1;
   writeln(n);
   // Или так:
   writeln((99 div 6) - Int(10 / 6));
end.