1. в текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке.определите объём текстовой информации, занимающей весь экран монитора, в кодировке кои-8. 2. информационное сообщение на языке, первоначально записанное в 8-битовом коде кои-8, было перекодировано в 16-битовую кодировку unicоde. в результате его объём увеличился на 8000 битов. найдите информационный объём сообщения до перекодировки. 3. в кодировке ascii каждый символ кодируется 8 битами. определите информационный объём сообщения в этой кодировке: длина данного текста 32 символа. 1) 32 бита; 2) 320 битов; 3) 32 бита; 4) 256 байтов.

1) узнаем количество символов на экране:

25*80=2000 символов.

в кодирвке кои -8 каждый символ кодируется 8 битами. таким образом: 2000*8 = 16000бит=2000байт=1,953125кб

 

2) пусть х - количество символов, у - количество информации. запишем систему уравнений:

 

ну и решаем это неравенство. подставим вместо у во второе уравнение 8х:

16х=8х+8000

8х = 8000

х = 1000 символов

 

3) считаем количество символов в предложении:

32 символа * 8 бит = 256 бит = 32 байта.

ответ: (смотрите внимательно, у вас опечатка в ответах в 3 )

Код вот такой, блок-схему сможешь написать по комментам var  a: array [1..100] of integer;   n, i, max, min: integer;   ans: real; begin  writeln('введите кол-во эллементов массива (от 1 до 100)');   readln(n); // cчитывается кол-во элементов  read(a[1]); // cчитывается первый элемент массива   max : = a[1]; //a[1] принимается за максимальный элемент  min : = a[1]; //a[1] принимается за минимальный элемент   for i : = 2 to n do begin // цикл от 2 до n    read(a[i]); // cчитывается i-тый элемент массива    if (max < a[i]) then // если max меньше нового эллемента обновить max      max : = a[i]    else if (min > a[i]) then // если min больше нового эллемента обновить min      min : = a[i];   end;   ans : = max / min; //присвоить переменной ans ответ на   writeln(ans); // вывести ответ end.

Program mas; var       mas, p_mas: array[1..15] of integer;       i: integer; begin randomize; for i: = 1 to 15 do   begin       mas[i] : = random(6) + 7;       p_mas[i] : = mas[i];   end; mas[8] : = mas[10] + 5; mas[10] : = mas[13]; writeln('первоначальный массив: '); for i : = 1 to 15 do   write(p_mas[i], ' '); writeln(crlf + 'изменённый массив: '); for i : = 1 to 15 do   write(mas[i], ' '); end.