Нам известна мощность алфавита 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).
2) 75:2=37:2=18:2=9:2=4:2=2:2=1
1. 1. 0. 1. 0. 0
ответ:75=1001011
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Если не использовать дополнительных переменных(для чисел),то:
Var i, n, k, s: integer;
begin writeln('n='); readln(n); s := 0; for i := 1 to n do begin readln(k); if (k < 40) and (k mod 2 = 1) then s := s + k; end; writeln('s=', s);end.