Текст, составленный при 16-символьного алфавита, содержит 0, 125 мбайт информации. сколько символов в этом тексте?

1118……,,……

Дано: N=16 символов I=1/16 МБайта=64 Кбайта=65536 байт=524288 бит Найти: K Решение: 2i(2 в степени i)=N; 2i=16 ; i=4 бита I=k*i ; k=I/i=524288/4=131072 символа ответ: 131072 символа.

Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры):
0101 1101 1000 1010 1010 1111 0010 1010
Если слева недостаточно цифр до тетрады, то слева добавляем нули.
Далее переводим тетрады в шестнадцатеричный код с таблицы:
0000 => 0        0001 => 1        0010 => 2        0011 => 3        0100 => 4
0101 => 5        0110 => 6        0111 => 7        1000 => 8        1001 => 9
1010 => A       1011 => B        1100 => C       1101 => D        1110 => E
1111 => F
0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A

Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры:
001 011 101 100 010 101 010 111 100 101 010
И также если не хватает до 3-ех цифр, то слева добавляем нули.
Затем переводим по аналогичной таблице:
000 => 0      001 => 1      010 => 2      011 => 3
100 => 4      101 => 5      110 => 6      111 => 7
001 011 101 100 010 101 010 111 100 101 010 = 13542527452

1.

program test;

var i,k2,k3,k4,k5:integer;

a:array [1..20] of integer;

begin

k2:=0;

k3:=0;

k4:=0;

k5:=0;

for i:=1 to 20 do

begin

a[i]:=random(4)+2;

if a[i]=2 then k2:=k2+1;

if a[i]=3 then k3:=k3+1;

if a[i]=4 then k4:=k4+1;

if a[i]=5 then k5:=k5+1;

write(a[i],' ')

end;

writeln;

writeln(k2);

writeln(k3);

writeln(k4);

write(k5)

end.

2.

var i,j,v:integer;

a:array [1..10] of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (100);

write(a[i]:3)

end;

for i:=1 to 9 do

for j:=1 to 9 do

if a[j]>a[j+1] then

begin

v:=a[j];

a[j]:=a[j+1];

a[j+1]:=v

end;

writeln;

for i:=1 to 10 do write(a[i]:3)

end.

3.

var a:array [1..10] of integer;

i,j,m,v:integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i]:3)

end;

writeln;

for i:=1 to 10 do

begin

m:=i;

for j:=i to 10 do

if a[m] mod 10 < a[j] mod 10 then m:=j;

v := a[i];

a[i]:= a[m];

a[m] := v;

write(a[i]:3)

end;

end.