1. Сообщение содержит 20 символов. Мощность алфавита 32. Найти информационный объем. 2. Создали два электронных письма. Первое письмо содержит 50 символов из 32-символьного алфавита. Второе письмо содержит 40 символов из 64-символьного алфавита. На сколько информационный объем одного сообщения больше другого?
3. Информационный объем сообщения 1,5 Кбайта. Сообщение содержит 3072 символа. Какова мощность алфавита, при которого было записано это сообщение?
4. В одной из стран автомобильный номер кодируется 8 знаками. В качестве знаков используются 26 латинских букв, 10 цифр, знак тире.
Каждый знак кодируется одинаковым, целым, минимально возможным количеством бит, а номер автомобиля кодируется одинаковым, целым минимально возможным количеством байт. Сколько байт потребуется для кодирования 100 номеров?

//pascal abc.net v3.0 сборка 1111 var   ma: array of array of integer;   n,m,i,j,res: integer;   b: boolean; begin   randomize;   res: =1;   b: =false;   read(m,n);   setlength(ma,m);   for i: =0 to m-1 do   setlength(ma[i],n);   writeln('first matrix: ');   for i: =0 to m-1 do     begin     writeln;       for j: =0 to n-1 do       begin         ma[i,j]: =random(10);         write(ma[i,j]: 5);       end;     end;   if n> m then     begin     for i: =0 to m-1 do     for j: =i+1 to n-1 do       if ma[i,j]> 0 then       begin;         res: =res*ma[i,j];         b: =true;       end;     end     else     begin       for i: =0 to n-1 do       for j: =i+1 to n-1 do         if ma[i,j]> 0 then          begin;           res: =res*ma[i,j];           b: =true;         end;     end;   if b=false then res: =0;   writeln;   writeln('final array: ');     for i: =0 to m-1 do     begin       writeln;       for j: =0 to n-1 do         begin         if ma[i,j]=0 then ma[i,j]: =res;         write(ma[i,j]: 5);         end;     end;   writeln;   writeln('res=',res); end.