Всоревнованиях по ориентированию участвуют 120 спортсменов. специальное устройство регистрирует финиш каждого из участников, записывая его номерс использованием минимально возможного количества битов, одинакового для каждого спортсмена. каков будет информационный объём сообщения (в байтах), записанного устройством, после того как финишируют 96 спортсменов?

Число 120 в двоичной системе размещается в 7 разрядах, потому что если для одного номера спортсмена отведено 7 бит, то для записи информации о 80 таких номеров потребуется 96х7=672 бита. в байте 8 бит, тогда объем в байтах составит 672/8=84. ответ: 84 байта.

Печально, придется придумывать, а фантазия иногда ведет не в ту стпень, но не суть. лично мне кажется что неплохо было бы хранить в бд под названием погода информацию относительно погоды, скажем гидромежцентра или как его там а значит объектами будут - температура влажность ветер дождь и тд если бы я ее проектировал то в качестве ключа выбрал бы дату, потому как она явно уникальна и прогнозы идут каждый день далее успеваемость - допустим успеваемость студента в универе, а значит неплохо бы в качестве объектов задать предметы по которым интересует успеваемость(обычно все) в качестве ключа можно взять любой уникальный идентификатор, хоть серию в паспорте хоть инн, но рас уж у нас универ пусть будет номер студенческого билета, или зачетной книжки и наконец факультативы - нужен перечень всех факультативов(причем не важно посещает все или не посещает ни одного), не слышал чтобы в школах были факультативы, так что предположу что учебное заведение чуть чуть  повыше а значит в качестве ключа так же подойдет номер студ билета

Программа рассчитана на то, что на экран выводится самый последний массив с результатами. uses crt; const p=5; r=5; s=5; var a: array[1..p] of integer; b: array[1..r] of integer; c: array[1..s] of integer; m: array[1..3] of integer; k,l,i,g,j,d,v,n: integer; begin readln(l);   writeln;   for i: =1 to p do readln(a[i]);     writeln;     for j: =1 to r do readln(b[j]);         writeln;         for g: =1 to s do readln(c[g]);         writeln;         for i: =1 to p-1 do repeat d: =0; if a[i]> a[i+1] then begin d: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until d=0; for j: =1 to r-1 do repeat d: =0; if b[j]> b[j+1] then begin d: =1; b[j]: =b[j]+b[j+1]; b[j+1]: =b[j]-b[j+1]; b[j]: =b[j]-b[j+1]; end; until d=0; for g: =1 to s-1 do repeat d: =0; if c[g]> c[g+1] then begin d: =1; c[g]: =c[g]+c[g+1]; c[g+1]: =c[g]-c[g+1]; c[g]: =c[g]-c[g+1]; end; until d=0; for i: =1 to p do if a[i]=l then inc(v); m[1]: =v; v: =0; for j: =1 to r do if b[j]=l then inc(v); m[2]: =v; v: =0; for g: =1 to s do if c[g]=l then inc(v); m[3]: =v; for n: =1 to 2 do repeat d: =0; if m[n]> m[n+1] then begin d: =1; m[n]: =m[n]+m[n+1]; m[n+1]: =m[n]-m[n+1]; m[n]: =m[n]-m[n+1]; end; until d=0; for n: =1 to 3 do writeln(m[n]); end.