Мощность первого алфавита составляет 4096 символов .информационный вес символа из второго алфавита в 2 раза меньше , чем информационный вес символа из первого алфавита . определите мощность второго алфавита.

4096 = 2^12 - 1 символ первого алфавита = 12 бит.

Если 1 символ 2 алфавита меньше в 2 раза = 12/2 = 6 бит.

2^6 = 64 символов

N=2^i

N - мощность алфавита

i - информационный вес

4096=2^12

Информационный вес символа из первого алфавита 12 бит

12\2=6 бит

Информационный вес символа из второго алфавита 6 бит

N=2^i   i=6 бит

N=64 символов- мощность второго алфавита

 Адаптер — аппаратное устройство или программный компонент, преобразующий передаваемые данные из одного представления в другое. Представляемыми данными может быть, к примеру, сообщение, отправляемое между разными объектами в приложении, или пакет, передаваемый по сети.В современных персональных компьютерах почти все периферийные устройства используют адаптер для связи с системной шиной, например:видеокарта, адаптер дисплея — используется для передачи сигнала к монитору;адаптеры универсальной последовательной шины среди прочего для принтеров, клавиатур или «мыши»сетевой адаптер, требуемый для подключения к любой сети;адаптер контроллера для подключения жёсткого диска или других накопителей.

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] <> '') do  begin    l:=a[i].Length;    if (l < min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End.

Program z19;  Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше';    write(a[i], ' ');    i:= i + 1;  end;End.