А) информационный вес символа 12 бит. найдите мощность алфавита. б) алфавит состоит из 512 символов. найдите информационный вес символа. решить, умоляю!

А) N = 2^12 = 4096

Б) I = log(2)512 = 9 (2^9=512)

Var money, cost,summa : real;
count : integer;
 tovar: string;
begin writeln('Введите исходные данные: ');
  writeln('Какой товар вы покупаете? ');
 readln(tovar);
  writeln('По какой цене? ');
 readln(cost);
  writeln('Сколько штук? ');
 readln(count);
  summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);  writeln('Сколько денег даете? ');
 readln(money);
  if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
 end.

Const
  n = 20;

var
  T: array[1..n] of integer;
  i, k: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0;
  for i := 1 to n do
  begin
    T[i] := Random(11)-5;
    Write(T[i]:3);
    if ((i mod 2)<>0) and (T[i]=0) then Inc(k);
  end;
  Writeln;
  Writeln('Количество нулевых элементов на нечетных местах равно ',k);
end.

Тестовое решение:
Элементы массива
  2  5 -4  4  3 -2  5 -5 -1 -2  5  2  0 -5 -5 -4 -3  3  0  1
Количество нулевых элементов на нечетных местах равно 2

const
  n = 18;

var
  T: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    T[i] := Random(51)-25;
    Write(T[i]:4);
  end;
  Writeln;
  Writeln('Результат');
  for i := 1 to n do
  begin
    if ((i mod 2)<>0) then T[i] := 0;
    Write(T[i]:4);
  end;
  Writeln;
end.

Тестовое решение:
Элементы массива
  23  -6   8  14  15  12 -24  20 -11  -7   4 -24  22 -19  12  -6  21  17
Результат
   0  -6   0  14   0  12   0  20   0  -7   0 -24   0 -19   0  -6   0  17