Примечание:
Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).
ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).
Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).
Пример работы:
1. Списки - особый вид форматирования абзацев.
2. Существует три типа списков: маркированный, нумерованный номер и многоуровневый.
3. Существует несколько оформления некоторого фрагмента текста в виде маркированного или нумерованного списка.
Основной. Перед созданием списка курсор следует разместить в нужном месте документа и выполнить Главная --> Абзац --> Маркеры или Нумерация. В текущем месте документа появится маркер или номер того вида списка, который использовался последним. После этого можно вводить первый элемент списка. После его ввода следует нажать клавишу Enter - следующий номер или маркер появляются в следующей строке документа автоматически. Когда последний элемент списка введен, нужно повторно выбрать кнопку соответствующего списка на Ленте, или дважды нажать Enter, или удалить номер (маркер) клавишей BackSpace.
Автоматическое создание списка. Разместив курсор в нужном месте документа, следует ввести некие специальные условные символы, которые определяют вид желаемого списка, и нажать клавишу Пробел. Сразу же условные символы превратятся в соответствующий маркер или номер, после чего можно вводить первый элемент списка.
Превращение текста в список. Если некоторые абзацы текста, введенного ранее, нужно оформить как список, то следует выделить эти абзацы и выбрать на Ленте кнопку соответствующего типа списка: Маркеры, Нумерация.
3. Для создания многоуровневого списка на Ленте следует выбрать кнопку Многоуровневый список и вариант оформления списка в Библиотеке списков. Дальше нужно вводить элементы списка, изменяя при необходимости их уровни вложения.
4. Колонки - прием форматирования текста, применяемое для лучшей читабельности объемного текста.
5. Для вставки в текстовый документ графического изображения из файла, который сохранен на внешнем носителе, следует выполнить Вставка - Иллюстрации - Рисунок. После этого в диалоговом окне Вставка рисунка выбрать нужный файл. Для вставки в текстовый документ графического изображения из коллекций нужно выполнить Вставка - Иллюстрации - Клип. Эти действия открывают область задач Клип, которая предоставляет возможность осуществлять поиск нужных изображений и просматривать эскизы найденных.
6. Обтекание рисунка текстом - функция, которая используется для компактного размещения материала и связывания между собой рисунка и текста. Можно задать такие виды обтекания: обтекание текстом, вокруг рамки, по контуру, сквозное, сверху и снизу.