Нет Readln, программа может вообще не пойти или же ты не сможешь из нее выйти
Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
........................................................
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
.
Для языка Бамбара i=7 бит (
); для языка Мандинго i=6 бит (
).
Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).
Если речь идет о MS Word, то их 3: нумерованный, маркированный, многоуровневый.