С бит можно закодировать 2^32 = 4294967296 символов (похоже на ощибку в условии задачи)
С бит можно закодировать2^10 = 1024 вариантов.
1/512 Мбайт = (1024*1024)/512 байт = 2048 байт.
2048/2048 = 1 байт - нужен для кодировки одного символа
1 байт = 8 бит - информационный вес одного символа
С бит можно закодировать 2^8 = 256 символов - это и есть размер алфавита
Всего двузначных чисел 90. Чтоб закодировать 90 чисел, нужно 7 бит (2^7=128). Значит каждое двузначное число несёт 7 бит информации
2^9 = 512 - чтоб закодировать 512 номеров страниц, нужно 9 бит. Сообщение о местопоожении закладки содержит 9 бит
Qw - к-во белых банок
Qb - к-во синих банок
Qr - к-во коричневых банок
Iw=log2(1/Рw)
2= log2(1/Pw)
1/Pw=4
Pw=1/4 - вероятность расхода белой банки;
N = Qw/Pw = 8/(1/4) = 32 - банoк с краской было всего
Qr = N - Qw – Qb = 32 – 8 – 8 = 16 - банок коричневой краски
Пусть вероятности того, что выпадет определённая грань, будут такие:
р1 = 1/2,
р2 = 1/4,
р3 = 1/8,
р4 = 1/8,
тогда к-во информации, получаемой после одного из этих событий, рассчитывается по формуле Шеннона:
(бит).
Program Polik1907;
uses crt;
Var
tur:real;
mes:integer;
begin
writeln('');
writeln('* Мы рады приветствовать вас *');
writeln('* в нашем турагентстве *');
writeln('* P O L I K 1 9 0 7 *');
writeln('* ! ! ! *');
writeln('');
writeln();
writeln('Введите базовую стоимость путёвки: ');
readln(tur);
writeln('month Введите номер месяца: ');
readln(mes);
case mes of
1,5,10: writeln('Стоимость вашей путёвки составит ',tur,' рублей');
6,7,8,9: writeln('Стоимость вашей путёвки составит ',tur*1.2,' рублей');
2,3,4,11,12: writeln('Стоимость вашей путёвки составит ',tur*0.8,' рублей');
else writeln('Введите правильный номер месяца');
end;
end.
газета, пергамент (можно еще будильник, если рассматривать показания на табло)
Приемник:
девочка