Текст на языке, первоначально записанный в 8-битовом коде windows, был перекодирован в 16-битную кодировку unicode. известно, что этот текст был распечатан на 128 страницах, каждая из которых содержала 32 строки по 64 символа в каждой строке. каков информационный объём этого текста? можно с решением )

1. изначально каждый символ кодировался одним байтом, в результате перекодировки стал кодироваться двумя - объем сообщения удвоился. таким образом, в исходном сообщении 2*1024*1024/2 символов. 2. аналогично - 8000 битов. 3. берешь таблицу символов и декодируешь 4. ceil(8192/32/40)=7 листов (ceil - округление до ближайшего большего целого) 5. ceil(12*1024/64/32)=6 листов 6. 2^(10240*8/(40*32*8))=2^8=256 (^ - возведение в степень) 7. 14400*8/(3*40*60)=16 битов.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает