Некоторый алфавит содержит 512 символов.каков информационный вес каждого символа?

2ⁿ=512 ⇒
⇒ n = ㏒2(512)  ⇒
⇒ n = 9 (бит);
ответ: 9 бит.

ответ в окне Проводник Проекта щелкнуть правой кнопкой по нужной форме и в открывшемся меню выбрать Показать код.

Примечание: окно кода может быть и не связано с формой. Отдельное окно кода называется Модуль Модуль. Модули в окне Проводник проекта сгруппированы в группу Модули. Для открытия окна с кодом модуля нужно в окне Проводник проекта дважды щелкнуть по имени модуля дважды щелкнуть по элементу управления на форме или по самой форме в окне формы.

Примечание: при этом не только открывается окно кода, но и создается процедура обработки события (см. ниже).

№2

http://psbatishev.narod.ru/vb/v052.htm

Объяснение:

Const N=10;
var i, j: byte;
    n1, n2: array [1..N] of integer;
begin
     j := 1;
     for i := 1 to N do
     begin
          n1[i] := random(100);
          writeln('n1[', i, '] => ', n1[i]);
     end;
     writeln('');
     for i := 1 to N do
     begin
         if (n1[i] mod 2 = 0) then
         begin
              n2[j] := n1[i];
              inc(j);
              n1[i] := n1[i] * 2;
         end;
     end;
     for i := 1 to N do
          writeln('n1[', i, '] => ', n1[i]);
     for i := 1 to j do
          writeln('n2[', i, '] => ', n2[i]);
end.

Если я правильно понял, то вот так =)