//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
8=2³, поэтому достаточно заменить каждые три двоичные цифры одной восьмеричной. Группы формируем в обоих направлениях, начиная от десятичной точки. Если в самой левой группе будет меньше трех разрядов, дописываем слева недостающие нули. Для самой правой группы дописываем нули справа.
11011.01₂ = 11 011 . 01₂ = 011 011 . 010₂ = 33.2₈
<span>Делим число на 2 и выписываем остатки</span>
<span>536 = 268·2 + </span>0
<span>268 = 134·2 + </span>0
<span>134 = 67·2 + </span>0
<span>67 = 33·2 + </span>1
<span>33 = 16·2 + </span>1
<span>16 = 8·2 + </span>0
<span>8 = 4·2 + </span>0
<span>4 = 2·2 + </span>0
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1000011000