Сколько среди чисел от 132 до 188 (включительно) таких, что их простыми делителями...

Question

Сколько среди чисел от 132 до 188 (включительно) таких, что их простыми делителями являются только числа 2 и/или 3?

Answer 1

144
162
2

//PascalABC.NET 3.1 сборка 1200
begin
  var k := 0;
 
  for var i := 132 to 188 do
  begin
    var n := i;
   
    while n mod 2 = 0 do
      n := n div 2;
    while n mod 3 = 0 do
      n := n div 3;
   
    if n = 1 then begin
      k += 1;
      writeln(i);
    end;
  end;
 
  writeln(k);
end.