Сообщение, записанное при 32-х символьного алфавита, содержит 80 символов, а сообщение, записанное с 64-х символьного алфавита 70 сомаолов.сравните обьемы информации содержащейся в этих сообщениях

N1=32 k1=80 n=2^i i=5 i=k*i i=80*5 i1=400 n2=64 k2=70 i=6 i=70*6 i2=420 ответ: объём информации второго сообщение больше объёма первого сообщения на 20 бит

// счет разрядов от нуля справа налево: var   n: longint;   a,b,k,d: integer; begin   write('введите натуральное число длиной 6-9 цифр: ');   read(n);   k: =0;   while n> 0 do begin       d: =n mod 10;       if k=2 then a: =d       else           if k=5 then b: =d;       inc(k);       n: =n div 10       end;   writeln('ср. арифм. разрядов 2 и 5 равно ',(a+b)/2) end. пример введите натуральное число длиной 6-9 цифр: 123456789 ср. арифм. разрядов 2 и 5 равно 5.5

Const   n=6;   a: array[1..n] of string=       ('иванов','петров','сидоров','козлов','баранкин','пупкин');   b: array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);   // массивы используются чтобы избежать в примере ручного ввода var   i,j,k: integer;   t: real;   s: string;   sa: array[1..n] of string;   sb: array[1..n] of real; begin   for i: =1 to n do begin sa[i]: =a[i]; sb[i]: =b[i] end;   // сортировка по возрастанию времени   for i: =1 to n-1 do       for j: =1 to n-1 do           if sb[j]> sb[j+1] then begin               s: =sa[j]; sa[j]: =sa[j+1]; sa[j+1]: =s;               t: =sb[j]; sb[j]: =sb[j+1]; sb[j+1]: =t               end;   // вывод   for i: =1 to 4 do writeln(sa[i],' - ',sb[i]) end. пример петров - 13.9 козлов - 14.2 баранкин - 14.5 иванов - 15