Решить по информатике 8 класс

Var x,y, sum1,sum2: integer; begin     readln(x);     readln(y);     while x< > 0 do  begin          sum1: =sum1 + x mod 10;         x : = x div 10;     end;       while y< > 0 do  begin          sum2: =sum2 + y mod 10;       y : = y div 10;       end;       if sum1> sum2 then writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')'); end.

Вытаскивание из корзины любого из 16 шаров     –     события равновероятные (т.к. все шары разного цвета). поэтому     для     решения         применима       формула       2  ^i   = n.    здесь       n = 16     –     число шаров разного цвета.     решая     уравнение     2^i   =16,     получаем ответ:     i   = 4 бита (2^4=2*2*2*2=16)