Сколько битов информации содержит один символ шестнадцатиричного числа

В16-ричной системе счисления 16 цифр, следовательно мощность ее алфавита n=16 тогда 1 символ содержит информации i = log₂16  =4 бита

Изначально смотрим что у нас не еденицы измерения, скорость передачи у нас в битах в секунду, а размер файла в килобайтах.  переводим килобайты в байты (1 килобайт=1024 байтам, 1 байт = 8 битов)следовательно 2000 килобайт * 1024 = 2048000 байт * 8= 16384000 бит.  скорость передачи данных = объем данных / на время затраченное для передаци этих данных.  следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.16384000бит / 1024000 кбит/с = 16 сек.  что собственно и является ответом.

Var   i,j,n: integer;   m: array[1..10,1..10] of integer;   flag: boolean;   sum: array[0..1] of longint;   begin   readln(n);   flag: =true;   for i: =1 to n do     begin     for j: =1 to n do       read(m[i,j]);     readln;     end;       //проверяем строки   i: =1;   for j: =1 to n do       sum[i mod 2]: =sum[i mod 2]+m[i,j];   while ((i< n) and flag) do     begin       i: =i+1;       for j: =1 to n do       sum[i mod 2]: =sum[i mod 2]+m[i,j];       if sum[0]< > sum[1] then flag: =false;       sum[(i+1) mod 2]: =0;     end;       //проверяем столбцы     sum[0]: =0;   sum[1]: =0;   j: =1;   for i: =1 to n do       sum[j mod 2]: =sum[j mod 2]+m[i,j];   while ((j< n) and flag) do     begin       j: =j+1;       for i: =1 to n do       sum[j mod 2]: =sum[j mod 2]+m[i,j];       if sum[0]< > sum[1] then flag: =false;       sum[(j+1) mod 2]: =0;     end;     sum[0]: =0;   sum[1]: =0;   j: =1;   for i: =1 to n do     begin     sum[0]: =sum[0]+m[i,j];     sum[1]: =sum[1]+m[n-i+1,j];     j: =j+1;     end;   if   sum[0]< > sum[1] then flag: =false;   if flag then writeln('магический');   end.