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

дано:     |n=2в степи i |240=2в степиниi

n= 240     | i=k*i           | i=8битов

k+120     |                   |i=120*8=960битов

i-8битов   |                   |          

Pascalabc.net const   n=25; { число учащихся } type   inform=record       fio: string;       kols: integer   end; var   minf: array[1..n] of inform;   i,j,t: integer;   vs,v: real;   ts: string; begin   { ввод исходных и накопление суммы для среднего }   writeln('введите исходные данные');   t: =0;   for i: =1 to n do       with minf[i] do begin           write(i: 2,') фамилия и.о. '); readln(fio);           write(i: 2,') количество знаков '); readln(kols);           t: =t+kols       end;   vs: =t/n/10;   { сортировка по убыванию kols }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if minf[j].kols < minf[j+1].kols then           begin               t : = minf[j].kols; minf[j].kols: =minf[j+1].kols; minf[j+1].kols: =t;               ts : = minf[j].fio; minf[j].fio: =minf[j+1].fio; minf[j+1].fio: =ts           end;     { результаты }   writeln('самый результативный: ',minf[1].fio,' (',minf[1].kols/10: 0: 1,           ' симв/мин)');   writeln('средняя скорость ввода составила ',vs: 0: 2,' симв/мин');   writeln('скорость ввода ниже средней имеют: ');   for i: =2 to n do begin       v: =minf[i].kols/10;       if v< vs then writeln(minf[i].fio, v: 0: 1,' симв/мин)')   end end.   тестовое решение для 5 человек (было указано n=5): введите исходные данные   1) фамилия и.о. иванов и.и.   1) количество знаков 360   2) фамилия и.о. петров п.п.   2) количество знаков 410   3) фамилия и.о. сидоров с.с.   3) количество знаков 270   4) фамилия и.о. козлов к.к.   4) количество знаков 390   5) фамилия и.о. поляков п.п.   5) количество знаков 385 самый результативный: петров п.п. (41.0 симв/мин) средняя скорость ввода составила 36.30 симв/мин скорость ввода ниже средней имеют: иванов и.и.36.0 симв/мин) сидоров с.с.27.0 симв/мин)

Const   nn=100; { максимальное значение n } var   i,n,k,s: integer;   a: array[1..nn] of integer; begin   write('укажите натуральное число n: '); read(n);   randomize;   k: =0; s: =0;   writeln('сформированная последовательность');   for i: =1 to n do begin       a[i]: =random(99)+1; { случайное число на интервале [1; 99] }       write(a[i]: 3);       if (a[i] mod 5=0) and (a[i] mod 7 < > 0) then           begin inc(k); s: =s+a[i] end;   end;   writeln;   writeln('количество чисел, кратных пяти: ',k);   writeln('их сумма равна ',s) end. тестовое решение: укажите натуральное число n: 39 сформированная последовательность   15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15  5 58 46 68 57 72 90 количество чисел, кратных пяти: 9 их сумма равна 355