Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var k:=0;
  for var n:=184 to 254 do begin
    var m:=n;
    while m mod 2=0 do m:=m div 2;
    while m mod 3=0 do m:=m div 3;
    if m=1 then Inc(k)
    end;
  Writeln('Количество чисел равно ',k)
end.

Результат выполнения программы
Количество чисел равно 3