1.звуковая плата производит двоичное кодирование аналогового звукового сигна- ла. какое количество информации необходимо для кодирования каждого из 65536 возможных уровней громкости сигнала? 1. 65536битов 2. 256битов 3. 16битов 4. 8битов 2.в текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке. определить объем текстовой информации, зани- мающей весь экран монитора, в кодировке unicode 1. 4000кбайт 2. 4000байтов 3. 4000кбит 4. 4000бит 3.пользователь компьютера, хорошо владеющий навыками ввода информации с клавиатуры, может вводить в минуту 100 знаков. какое количество информации может ввести пользователь в компьютер за одну минуту в кодировке windows? 1. 1600битов 2. 100битов 3. 800байтов 4. 100байтов

65536 = 2 ^ I  
I - это кол-во информации
I = 16

Символов на экране: 25*80 = 2000
Юникод 16 бит, значит 2000*16 = 32000 бит
32000бит = 4000 байт
 
Задача поставлена не корректно, но если не ошибаюсь то...
Кодировка Windows: 1 символ =  8 бит
100 знаков * 8 = 800 бит = 100 байт

Var
  i, a, b, n, n2, j: longint;
  s: string;
  flag: boolean;

begin
  Write('Введите через пробел границы диапазона: ');
  Readln(a, b);
  if b < a then begin n := a; a := b; b := n end;
  if a < 11 then a := 11;
  for i := a to b do
  begin
    Str(i, s);
    n := Length(s); n2 := n div 2; flag := true; j := 1;
    repeat
      flag := (s[j] = s[n - j + 1]);
      j := j + 1
    until (not flag) or (j > n2);
    if flag then Write(i, ' ')
  end;
end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

var current, past, sum: real;

    i, n: integer;

begin

  current : = 10;

  for i : = 1 to 10 do begin

    writeln(i, ' ', current);

    past : = current;

    current : = current * 1.1;

  end;

  current : = 10; sum : = 0;

  write('n = ');

  read(n);

  for i : = 1 to n do begin

    sum : = sum + current;

    past : = current;

    current : = current * 1.1;

  end;

  writeln('за ', n, ' дней: ', sum);

end.