Примечание:
Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).
ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).
Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).
Пример работы:
1) щука, карась, окунь, рак (не рыба);
2) ромашка, ландыш, сирень (кустарник, а не трава), колокольчик;
3) Саша, Лена, Коля, Маша, Егорова (не имя);
4) ветка, листок, яблоко, цветок, птичка (живая);
5) заяц, волк, кабан, лось, овца (женский род);
6) ухо, лицо, нос, язык (не снаружи), глаз;
7) рысь, медведь (не кошачьи), тигр, лев, кошка;
8) шайба, коньки, качели (не относится к хоккею), клюшка;
9) гусь, лебедь, павлин, курица, кролик (не птица);
10) пот, потолок (всё остальное связано с потом), потливый, запотевший;
11) горе, нагорный (всё остальное связано с горем), горевать, горемыка;
12) Тибет, Кавказ, Альпы, Байкал (озеро, а не гора);
13) Россия, Франция, Петербург (не страна), Китай;
14) Африка, Индия (не материк), Австралия, Южная Америка;
15) диван, кровать, тетрадь (не мебель), шкаф, парта;
16) дряхлый, старый, изношенный, маленький (остальное - синонимы), ветхий;
17) молоко, сыр, сливки, сметана, сало (не связано с молоком);
18) подлежащее, глагол (не член предложения), дополнение, определение;
19) пять (остальные - существительные), пятерка, пятерня;
20) четырехугольник (слово с двумя корнями, остальные с одним), четыре, четверка;
21) ножницы, дрожжи (не предметы обихода), щипцы, башмаки;
22) брюки, хлопоты (остальное - предметы), дверцы, вилы;
23) дебри, прения, игры (только у этого слова есть единственное число), шахматы;
24) носок, мозоль (женский род, у остального - мужской), георгин, помидор;
25) магистраль, вестибюль (не женский род), бандероль, лазурь;
26) озимь, цитадель (3 слога, а не 2), фланель, панцирь;
27) подстаканник, подорожник (нет приставки под-), подснежник, подлокотник;
28) текст, число, график (второй звук согласный, у остальных - гласный), бумага;
29) клавиатура, джойстик, сканер, принтер (не средство ввода);
30) монитор, графопостроитель, принтер, мышь (не средство вывода);
31) винчестер, дискета, компакт-диск, процессор (не ПЗУ);
32) обработка, хранение, калькулятор (не информационный процесс), передача.