Сколько килобайт составит сообщение из 384 символов 16- ти символьного алфавита ?

Используем формулу 2^i=n. так как в алфавите 16 символов (n=16), то  2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. так что лучше ответ оставить в байтах (192 байта).

//pascal abc.net v3.1 сборка 1172 var   na, nb, nc: integer; function minim(ar: array of real; n: integer): real; var   i: integer;   min: real; begin   min : = maxreal;   for i : = 0 to n - 1 do //динамические массивы индексируются с 0       if min > ar[i] then min : = ar[i];   minim : = min; end; begin   randomize;   write('na: '); readln(na); //ввод размерностей   write('nb: '); readln(nb);   write('nc: '); readln(nc);   var a : = arrrandomreal(na, 1, na); //инициализация динамических массивов   var b : = arrrandomreal(nb, 1, nb);   var c : = arrrandomreal(nc, 1, nc);   a.println(' ');   writeln('min: ', minim(a, na));   b.println(' ');   writeln('min: ', minim(b, nb));   c.println(' ');   writeln('min: ', minim(c, nc)); end. пример ввода: na: 3 nb: 4 nc: 5 пример вывода: 2.45183664907321 2.12786289357015 2.8286734511278 min: 2.12786289357015 3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996 min: 1.03827733129183 3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051 min: 3.57791954771519

//pascal abc.net v3.1 сборка 1172 //1 var   i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n> =max then       begin         max: =n;         maxi: =i;       end;   end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var   i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n< min then       begin         min: =n;         mini: =i;       end;   end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1