Конференц-зал имеет вместимость 500 человек. каждому участнику
конференции присваивается уникальный номер, который хранится с
минимально возможного количества бит. в базе данных помимо
номера участника хранятся дополнительные сведения. каждая такая запись
представлена целым количеством байт, одинаковым для каждого
участника. конференцию посетило 103 человека. выгрузка о них из базы
данных имеет объем 1236 байт. определите максимально возможное
количество бит, отводимое на хранение дополнительных сведений в базе об одном участнике

caps lock,shift

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.