Вбиблиотеке 16 стелажей с книгами на каждом стелаже 6 полок.какое количество иформации содержит сообщение о том что книга находится на второй полке 5 стелажа

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации

1) Дерево, кости, камень, папирус, пергамент и так далее
2) В середине XV века немец Иоганн Гутенберг создал разборный печатный шрифт. Он отлил каждую букву из металла и сделал первый печатный станок.
3) 1 марта 1564 года повелением Ивана Грозного было выпущено первое печатное издание на Руси – изданный Иваном Федоровым и Петром Мстиславцем «Апостол». Оба мастера вошли в историю как первопечатники, и дата выхода в свет их творения считается датой начала книгопечатания на Руси. Техника печати, шрифт, верстка — все восхищает в этой книге.
4) Фоно́граф — первый прибор для записи и воспроизведения звука. Изобретён Томасом Эдисоном, представлен 21 ноября 1877 года.
5) С процессами хранения информации, передачи.

Sub TaskToAnswerConverter()

Const A = 10 'целое число, предшествующее интервалу

Const B = 20 'целое число сразу за интервалом

Const Task = "Вычислить кол-во всех целых чисел, больших " & A & " и меньших " & B & "."

'Const Task = "Вычислить сумму всех целых чисел, больших " & A & " и меньших " & B & "."

Dim answer As Variant 'ответ на задачу

   

   Select Case True

    Case InStr(Task, "кол"):   answer = B - A - 1

    Case InStr(Task, "сумм"):  answer = (B - A - 1) * (A + B) / 2

   End Select

   

MsgBox "Удалось " & LCase(Task) & vbCr & vbCr & "Результат: " & answer, vbInformation

End Sub

Объяснение: