Информационное сообщение объёмом 1, 5 кбайта содержит 3072 символа. каким количеством бит кодируется каждый символ этого сообщения?

{переведем кбайты в биты} 1,5 кбайт -> 1536 байт -> 12288 бит {найдем  количество  бит которыс кодируется 1 символ} 12288 / 3072 симв = 4 бита ->   ответ: 4 бита

1.5*1024 = кол-во байт на все символы 3072/1536 = кол-во байт на 1 символ в байте 8 бит, 0.5байта на символ, это 4 бита на символ

Честно, не поняла ваш код вообще. почему нет цикла? предлагаю свое решение: 1)cначала заполняем массив случайными числами от 2 до 5 (включительно) 2)потом выводим его (для проверки) 3) потом считаем оценки. но сначала нужно обнулить переменные( в самом начале это делали), а то получится кака (: program n_0547847; var       b, c, d, f, i: integer;       a: array [1..20] of integer; begin; randomize; b: =0; c: =0; d: =0; f: =0; for i: =1 to 20 do begin     a[i]: =random(4)+2;       write(a[i],' ');   end;   writeln; for i: =1 to 20 do begin       if a[i]=2 then   b: =b+1;       if a[i]=3 then   c: =c+1;       if a[i]=4 then   d: =d+1;       if a[i]=5 then     f: =f+1; end; writeln('двоек: ',  b);   writeln('троек: ', c);   writeln('четверок: ',d); writeln('пятерок: ',f); end.   

Const n=30; var a: array[1..n] of integer; k,i: integer; begin for i: =1 to n do begin   a[i]: =random(21)-10;   write(a[i],' ');   end; writeln; k: =0; i: =0; while (i< n)and(k< 3) do   begin   i: =i+1;   if a[i]> 0 then k: =k+1;   end; if k=3    then writeln('номер третьего положительного элемента = ',i)    else writeln('в массиве нет 3 положительных элементов'); end. пример (для n=20): -4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2  номер третьего положительного элемента = 6