1. при составлении сообщения использовали 128-символьный алфавит. каким будет информационный объем такого сообщения, если оно содержит 2048 символов? 2. сообщение занимает 2 страницы. на каждой странице по 80 строк. в каждой строке по 32 символа. найдите информационный объем такого текста, если при его составлении использовали 256-символьный алфавит. 3. выразите 8 мбайт в битах.

1) 2^n=128 n=7 бит 2048*7=14336 бит. 2) 2*80*32=5120 символов. n=8 бит. 5120*8= 40960 бит.3) 8 мб=8*1024*1024*8=67108864 бит

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',10); a.println;   var k: =1;   var max: =a[0];   for var i: =1 to a.length-1 do       if a[i]> max then begin max: =a[i]; k: =1 end       else           if a[i]=max then k+=1;   writeln('количество макс. элементов: ',k) end. пример n= 17 -7 -9 1 -9 -3 7 1 -6 6 7 -2 2 7 -1 -4 6 4 количество макс. элементов: 3

Var       a: array[1..100] of integer;       i, n: integer;       sum, product, harmonic: real; begin       n : = 50;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(60);               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + a[i]               else                       product : = product * a[i];       writeln('sum = ', sum);       writeln('product = ', product); end.