Сколько бит нужно выделить на символ, для того чтобы использовать в одном документе 100 разных символов? 200? 500?

99 (10) =  1100011 (2) т.е. для хранения чисел от 0 до 99 (100 штук) нужно 7 бит. устанавливаем соответствие между 100 разными символами  и числами от 0 до 99 и получаем желаемое. для 200 -1 = 199 (10) =  11000111 (2) => 8 бит для 500 -1 = 499 (10) =  1  1111  0011 (2) => 9 бит

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

 

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.