Должно решаться в PascalABC. Сформировать одномерный массив А[1..40], элементами массива являются значения функции y = cos(2x+5)/(x+2.3), значения аргумента х задать случайными числами в диапазоне [-1..20]. Дополнить программу строками, с которых осуществляется поиск максимального значения среди элементов с А[5] по А[15].

Число бит информации определяется как log 2 (N/N') где N - число возможных вариантов ДО получения информации, а N' - после.
Надо посчитать сколько существует комбинаций из 18 подбрасываний всего

(2^18 = 262144) и сколько таких, где 3 орла идут подряд

(таких  16 -

111000000000000000,

011100000000000000,

001110000000000000,

000111000000000000,

000011100000000000,

000001110000000000,

000000111000000000,

000000011100000000,

000000001110000000,

000000000111000000,

000000000011100000,

000000000001110000,

000000000000111000,

000000000000011100,

000000000000001110,

000000000000000111

Имеем log 2 (262144 / 16) = log 2 (2^18 / 2^4) = log 2 (2^14) = 14 бит

ответ 14 бит

Оба искомых числа должны лежать в промежутке от 36 (100 в 6-ричной записи) и 215 (555 в 6-ричной записи) и давать в сумме 259 (1111 в 6-ричной записи), т.е., a+b=259 => a=259-b,
Минимальное а, для которого все эти условия выполняются, равно 44, при b=215.
Очевидно, что остальные пары выглядят так: (45, 214), (46, 213), ... (215, 44), таких пар будет 172. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 172/2 = 86.

ответ 86 

*  сходится  с вашим ответом :)