Вкоробке лежат ручки крассные и синии среди них 28 крастных сообщение о том что достали синию ручкунесёт 3 бита информации сколько ручек в коробке

Если сообщение о том, что была выбрана синяя ручка, несет 3 бита информации, это означает следующее: вытащив синюю ручку мы уменьшили в  раз неопределенность в вопросе о том, какого цвета будет выбранная ручка. т.е. шанс (вероятность) выбрать синюю ручку из коробки был равен 1/8. тогда шанс выбрать красную ручку равен 1-1/8=7/8 и эта величина приходится на 28 ручек. теперь можно определить общее количество ручек в коробке: ответ: в коробке находятся 32 ручки

Program q1; uses crt; const n=10; var i,j: integer; mass: array [1..n] of integer; countnum: integer; // переменная для хранения количества нечетных чисел proizv: integer; // переменная для хранения произведения нечетных чисел begin proizv: =1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} writeln('случайные целые числа: '); for i: =1 to n do begin mass[ i ]: =random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {вычисление произведения и количества нечетных чисел} for i: =1 to n do if mass[ i ] mod 2 < > 0 then //проверяем не четное-ли число, если да, то.. begin inc(countnum); //увеличиваем на один кол-во нечетных чисел proizv: =proizv*mass[ i ]; // высчитываем произведение end; {вывод результатов} writeln; writeln('всего нечетных чисел: '+inttostr(countnum)); writeln('их произведение: '+inttostr(proizv)); end.