Нужно решить информатику

125чел. это 5частей из 7

? чел. это 2 части из 7

125 чел. : 5 частей = (100+25): 5=100: 5+25: 5=20+5=25чел. это 1 часть из 7

25чел. х 2части=50 чел. , которые пришли на финиш после 1 часа

ответ: 50 чел.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

1 способ

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

2 способ:

воспользуемся формулой: 2

2^i=n

количество информации о нахождении стеллажа:

2^4=16

i=4 бита

количество информации о нахождении полки:

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

i=3

4+3=7 бит информации

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.