Отличник и двоечник встретили учителя. «когда вы поставите нам зачет? » — спросил отличник у учителя. учитель ответил: «я вам не скажу, но несколько намёков». он написал на доске следующие даты:



15 декабря — 16 декабря — 19 декабря

17 января — 18 января

14 февраля — 16 февраля

14 марта — 15 марта — 17 марта



«одна из этих дат — день получения зачета», сказал он.

далее учитель по секрету сообщил отличнику месяц, в котором состоится зачет. двоечнику он также по секрету сообщил число.

«теперь ты можешь догадаться? » — спросил он у отличника.

отличник: я не знаю, когда у нас будет зачет, но я знаю, что двоечник тоже не знает.

двоечник: сначала я не знал, но теперь знаю.

отличник: что ж, теперь и я знаю!
когда ученики получат зачёт? ​

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

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 бит информации

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.