Очень сильно зависит от контекста. допустим, вы знали, что какая-то девочка должна была выйти, а вышла именно девочка в желтом. Тогда, так как могла выйти любая из 8-ми, а вышла именно в желтом, сообщение содержит 3 бита информации. Если же выйти могло любое кол-во девочек, а вышла именно одна, да еще и с желтым платьем, то сообщение содержит 8 бит информации. Теперь поясню: тут вопрос "какое кол-во информации" равнозначен вопросу "Сколько бит мне нужно, чтобы закодировать все комбинации". Так, чтобы закодировать 8 цветов нужно всего 3 бита, чтобы закодировать группу девочек, нужно 8 бит (каждый бит соответствует девочке, бит is set означает, что она вышла, бит not set - что она не вышла)
Var a,b,sek_m,sek_l:integer; begin writeln('на каком этаже живёт Миша?'); readln(a); writeln('на каком этаже находится лифт?'); readln(b); writeln('за сколько секунд Миша поднимается на этаж?'); readln(sek_m); writeln('за сколько секунд лифт поднимается на этаж?'); readln(sek_l); sek_m:=sek_m*a-sek_m; writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.'); sek_l:=(sek_l*b+sek_l*a)-sek_l; writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.'); if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени') else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому') else writeln('Мише быстрее подняться на лифте'); end.
50•8=400
64•400=25600=25,6Кбайт