Найдите информационную ёмкрсть сообщения длинной 40 символов, если мощность алфавита равна 128. !

N = 2 в степени i //N=2^i
I = k * i
Маленькая буква i или b это одно и тоже
128 = 2^i
i= 7
I = i* k
k= 40
I = 40 * 7
I = 280бит
1 бит = 8байт
280/8= 35 байт
ответ : 8байт или 280бит

Выделение объектов в окне папки

В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:

для выделения несмежных объектов щелкайте на них при нажатой клавише ;
для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем;
для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +A .
Также группу объектов можно выделить протягиванием.

Чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.

Procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  for i := 0 to 31 do
  begin
    Chislo := 3;
    for j := 0 to 4 do
    begin
      if ((i and Trunc(IntPower(2,j)))=0) then
        Dec(Chislo)
      else
        Chislo := 3*Chislo;
      if (Chislo=16) then
      begin
        Memo1.Lines.Append('УРА - Нашли');
        for k := 0 to j do
          if ((i and Trunc(IntPower(2,k)))=0) then
            Memo1.Lines.Append('1')
          else
            Memo1.Lines.Append('2');
        Memo1.Lines.Append('');
      end;
    end;
  end;
end;