Массив d состоит из нечетных чисел от 11 до 21. установите тип массива !

Var d: array [a..n] of  integer;

var

  n, c, a1, p: integer;

begin

  write ('введите трехзначное число: ');

  readln (n);

  if (n < 100) or (n > 999) then begin

    writeln ('число не является трехзначным');

    exit;

  end;

  a1 : = 0;

  p : = 1;

  while n > 0 do begin

    c : = n mod 10;

    n : = n div 10;

    if c = 1 then

      a1 : = a1 + 1;

    p : = p * c;

  end;

  writeln ('количество единиц = ', a1);

  writeln ('произведение цифр = ', p);

end.

вес i одного символа алфавита и количество символов n, из которых он состоит, связаны выражением n=2i, что обусловлено двоичной системой кодирования (например 1 и 0 или с любых двух знаков).

у нас в алфавите 128 символов, поэтому n=128.

128=2i, тогда i = 7 битов

это значит, что для кодирования одного символа предусмотрено 7 разрядов, т.е. с 0 и 1 мы можем зашифровать 128 разных знаков, например:

1111110

1111110

1111100

1111000 и так всего 128 комбинаций.

 

ответ: один символ алфавита несет в себе 7 битов информации.