Вящике лежат перчатки (белые и черные среди них — 9 пар черных. сообщение о том, что из ящика достали пару черных перчаток, несет 3 бита информации. сколько всего пар перчаток было в ящике?

 

в данном случае рассмотрим вероятность доставания черных перчаток:

 

- пар перчаток.

 

ответ: 72 пары.

а)  (11111012 + af16)/368

переведем числа в одну систему счисления

1111101 = 1*2^6 + 1*2^5 + 1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 125 (10 cc)

af = a*16^1 +f*16^0 = 160 +15   =175 (10 cc)

36 = 3*8^1 + 6*8^0 = 24 +6 = 30 (10 сс)

считаем:

(125 +75) / 30 = 300 / 30 = 10 (10 сс)

 

б)  1258 + 111012*a216 - 14178

переведем числа в одну систему счисления

125 = 1*8^2 + 2*8^1 + 5*8^0 = 64 +16 + 5 = 85 (10 cc)

11101 =  1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 16 + 8 + 4 + 0 + 1 = 29 (10 cc)

a2 = a*16^1 + 2*16^0 = 160 + 2 = 162 (10 cc)

1417 = 1*8^3 + 4*8^2 + 1*8^1 + 7*8^0 = 512 + 256 + 8 + 7 = 783 (10 cc)

85 + 29*162 - 783 = 4000 (10 cc)

uses crt; type matr=array[1..20,1..20] of integer; proc=procedure(m: matr; n: byte);

procedure glav(m: matr; n: byte); var i: byte; beginwriteln('главная диагональ  : '); for i: =1 to n dowrite(m[i,i]: 3,' '); writeln; writeln; end; procedure vyvod(m: matr; gl: proc; n: byte); begingl(m,n); end; var a: matr; n,i,j: byte; beginclrscr; randomize; repeatwrite('размер матрицы до 20 n='); readln(n); until n in [1..20]; writeln('исходная матрица: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(40)+10; write(a[i,j]: 3,' '); end; writeln; end; writeln; vyvod(a,glav,n); readlnend.