Репетиционный экзамен в спб 9 потоков по 100 человек в каждом. каждому из них выделяют специальный код, состоящий из номера потока и номера в потоке. при кодировании этих номеров участников проверяющая система использует минимально возможное количество бит, одинаковое для каждого участника отдельно номер потока и номер в потоке. при этом для записи кода используется минимально возможное количество байтов. каков объем информации, записанный устройством после регистрации 80 участников?

Для кодировки номера потока (максимум 9) используется минимум 4 бита. для кодировки номера в потоке (максимум 100) используем минимум 7 бит соответственно для кодировки номера участника используется 11 бит после регистрации 80 участников (11*80) объем информации записанной устройством будет равен 880 битам = 110 байт

Для перевода чисел из десятичной системы счисления в двоичную используют так называемый "алгоритм замещения", состоящий из следующей последовательности действий: делим десятичное число  а  на  2. частное  q  запоминаем для следующего шага, а остаток  a  записываем как  младший  бит двоичного числа. если частное  q  не равно  0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. каждый новый остаток (0  или  1) записывается в разряды двоичного числа в направлении от  младшего  бита к  старшему. алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное  q  =  0  и остаток  a  =  1 пример: 35(в десятичной)  35/2=17 35-2*17=1  17/2=8 17-2*8=1  8/2=4 8-2*4=0 4/2=2 4-2*2=0  2/2=1 2-2*1=01/2=0 1  записываем число снизу вверх: 100011  35=100011

{кратность 5ти} var i, i1: integer; begin        readln(i1);         for i: =0 to i1 do            if (i mod 5 = 0) then                writeln(i, ': ', sqr(i))            else                  writeln(i, ': не кратно пяти'); end.{ больше 15-ти  }var i, b, c: integer; begin      for i: =1 to 15 do      begin          readln(b);           if (b > 15) then              c : = c + 1;       end;       writeln(c); end.const n=5; //любое кол-во: )var a: real;     i, count: integer; begin      for i: =0 to n-1 do      begin          readln(a);           if (a > 0) then              count : = count + 1;       end;       writeln(count); end.