Вкорзине грибника лежат 16 сыроежек, 16 лисичек, 16 груздей, 16 маслят. сколько информации несет сообщение о том, что из корзины вынули груздь?

16+16+16+16=64 64=2^6 сообщение содержит 6 бит информации.

a)

var num, sum, i, temp: integer;

begin

print('number: ');

readln(num);

temp: = num;

i: =1;

while(temp < > 0) do

  begin

  temp: = temp div 10;

  if(temp =0) then break;

  i: = i+1;

  end;

temp: = i;

sum: =0;

for i: =0 to temp do

  begin

  sum: = sum + (num mod 10);

  num: = num div 10;

  end;

println('sum: ',sum);

end.

b)

var num, temp: integer;

    bool: boolean;    

begin

readln(num);

temp : = num mod 10;

num : = num div 10;

while(num< > 0) do

  begin

  if (temp = num mod 10)  

    then

    begin

    bool: =true;

    break;

    end;

  temp : = num mod 10;

  num : = num div 10;

  end;

if bool then write('yes') else write('no');

end.

1. всего 5 деревьев.

по условию ни берёза, ни ель, ни клён, даже не липа на первом месте.

значит, самое высокое дерево - тополь.

2. т.к. липа отстала от тополя на два места, то она на третьем месте по высоте.

3. получается вот такой промежуток по возрастанию:

? , липа, ? , тополь)

т.к. ель идёт сразу за клёном, то они занимают последние два места по высоте.

то есть ель на 5-ом месте, клён - на 4-ом.

4. остаётся только 2 место и только береза.

береза - 2 место

ответ от меньшего к большему: ель, клён, липа, берёза, тополь.