1) 11001000
2) 111101001
3) 1000011111
4) 1110110110
5) 10000000001
Решение:
например число 489
Каждое из полученных чисел дели на 2
489=244*2+1
244=122*2+0
122=61*2+0
61=30*2+1
30=15*2+0
15=7*2+1
7=3*2+1
3=1*2+1
2=2*1
Записываем в обратном порядке выделенные числа и получаем 111101001
P.S. для правильности следует записать все вычесления в столбик
Скатерть
Остров
Сумка
Товар
Автобус
Винтерлятор
Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4