Очень сильно зависит от контекста. допустим, вы знали, что какая-то девочка должна была выйти, а вышла именно девочка в желтом. Тогда, так как могла выйти любая из 8-ми, а вышла именно в желтом, сообщение содержит 3 бита информации. Если же выйти могло любое кол-во девочек, а вышла именно одна, да еще и с желтым платьем, то сообщение содержит 8 бит информации. Теперь поясню: тут вопрос "какое кол-во информации" равнозначен вопросу "Сколько бит мне нужно, чтобы закодировать все комбинации". Так, чтобы закодировать 8 цветов нужно всего 3 бита, чтобы закодировать группу девочек, нужно 8 бит (каждый бит соответствует девочке, бит is set означает, что она вышла, бит not set - что она не вышла)
Program Ulitka;Var SunnyDay: Array [1..30] Of Boolean; a, b, c, i: Integer;Begin WriteLn('a = '); ReadLn(a); WriteLn('b = '); ReadLn(b); b := b * 100; Randomize; For i := 1 To 30 Do Begin If Random(2) = 1 Then SunnyDay[i] := True Else SunnyDay[i] := False; End; For i := 1 To 30 Do Begin If SunnyDay[i] = True ThenBegin a := a + 2; If a > b Then a := b; End Else Begin a := a - 10; If a < 0 Then a := 0; End; End; WriteLn('Дни месяца были таковы:'); For i := 1 To 30 Do Begin If SunnyDay[i] = True Then WriteLn(i, '. Солнечный') Else WriteLn(i, '. Пасмурный') End; WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');End.
1.Само Число: 101001111101110010110100 101001111101110010110101 101001111101110010110111 101001111101110010111111 101001111101110011111111 101001111101110111111111 101001111101111111111111 101001111111111111111111 101011111111111111111111 101111111111111111111111 111111111111111111111111 Последующие десять чисел. 2.Сравните в десятиричной, затем переведите в двоичную. 3.а.1000010011 б.1100010000 в.10111101011 г.1100111001 д.10011011100 е.1110111101 ж.100100100110 з.1011001000 и.1000101011 Могла ошибиться в наборе, так что перепроверьте. Если не умеете переводить: делите число на 2 если есть остаток - пишите 1 если нет - 0 повторяете цикл. По окончанию (от числа должна остаться единица) пишите 1 и переворачиваете число.
ответ:3 бита
Это коротко
Всё