Прикрепил скрин программы
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Ответ не зависит от номера вытащенного шара. Так как вытаскивание любого из 32 шаров - равновероятное событие. Тогда получаем следующее:
N = 2^i, где N = 32, следовательно количество информации i = 5 бит
Ответ: 5 бит