// 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.
<u><em>Результат выполнения программы</em></u>
Количество чисел равно 3
магнітний диск у класичному виконанні має ємність носія 1,44 Мбайт
Убрать у Ц хвостик, потом убрать у Ч (Согнутый хвостик) Добавить его в Ц, а потом уже добавить маленький хвостик)))