1. Что такое носитель? (Б) Материальная среда, используемая для записи и хранения информации
2. Носитель, имеющий наиболее массовый употребление – это (Г) Бумага
3. В каком году Александр Белл изобрел телефон? (В) 1876 г.
4. Кто создал теорию информации? (Б) К. Шеннон
5. Что такое избыточность кода? (В) Многократное повторение передаваемых данных -- неудачный ответ. Скорее многократное повторение - это один из добавить избыточность кода, есть и другие
6. Какие средства связи используются в компьютерных сетях? (Б) Радиосвязь -- есть и другие, конечно
7. Вместимость – это (А) Плотность хранения данных -- самый удачный вариант из предложенных, но всё же это не плотность хранения, а количество хранимой информации
8. Где появилась бумага? (А) В Китае
9. В каком году возникла теория связи? - нет верного ответа. Обычно упоминают 1948 год, когда была опубликована работа Шеннона "Математическая теория связи"
10. Винчестер компьютера – это (А) Пакет магнитных дисков, надетых на общую ось
Примечание:
Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).
ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).
Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).
Пример работы:

