Сколько бит информации получено из сообщения "мой друг живет на 8 этаже", если в доме 16 этажей?

Информационная неопределенность (количество возможных результатов события) равна 16. будем задавать вопросы, на которые можно ответить только «да» или «нет». вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза. задаем вопросы: - друг живет выше 8-го этажа? нет. после этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. получен 1 бит информации.   друг живет выше 4-го этажа? да. число вариантов уменьшилось еще в два раза, получен еще 1 бит информации. друг живет выше 6-го этажа? да. после данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. получен еще 1 бит информации. друг живет на 7-м этаже? нет. все ясно. друг живет на 8-м этаже. каждый ответ уменьшал информационную неопределенность в два раза. всего было задано 4 вопроса. получено 4 бита информации. сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.

Попробуйте. Конечно, можно использовать встроенную в PascalABC.Net функции min(a, b), для определиня минимального числа. Но чтобы наверняка не было бы проблем, можно пойти стандартным путем.

Объяснение:

program YourTitle;

var a,b,c,d, min:integer;

BEGIN

writeln('Введите 4 целых числа через пробел или Enter -> ');

readln(a,b,c,d);

min:=a;

if b<a then min:=b;

if c<b then min:=c;

if d<c then min:=d;

writeln('Меньшее из чисел = ',min);

min:= min * 5;

writeLn('Увеличенное в 5 раз: ', min);

END.