Число -34 при двухбайтовом способе записи числа в память компьютера будет представлено машинным словом: 1111111111011110 1000000000100010 1111111111011101

1111111111011101. числа -34 отрицательное. поэтому переводим его в двоичную систему счисления 100010  и меняем полярность. 

Когда нужно найти вероятность совершения некольких событий, происходящих друг за другом, вероятности каждого отдельного события перемножаются. но когда нужна вероятность свершения хотя бы одного из событий, нужно найти вероятность того, что вся цепочка событий не произойдет и вычесть ее из единицы. т.е. в данном случае мы сначала находим вероятность того, что нужное нам событие не произойдет. если из 44 краж раскрыто 14, то не раскрытых краж 44-14=30. тогда вероятность, что первое взятое дело будет нераскрытым, составит 30/44 = 15/22. в этом случае у нас останется 43 кражи, 29 из которых нераскрыто и вероятность того, что второе выбранное дело будет нераскрытым, составит 29/43. рассуждая аналогично, для третьего дела получаем 28/42 = 2/3. вероятность, того что все три события будут иметь место, составит (15/22) х (29/43) х (2/3) ≈ 0.307. следовательно, вероятность того, что этого не произойдет, т.е. наша искомая вероятность, составит 1-0.307 = 0.693. ,

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! unit asm; interface   type sf=(integer,integer);   function addsf(a,b: sf): sf;   function subsf(a,b: sf): sf;   function multsf(a,b: sf): sf;   function divsf(a,b: sf): sf;   implementation     function gcd(p: sf): integer;   begin       (var a,var b): =p;       a: =abs(a); b: =abs(b);       while b> 0 do (a,b): =(b,a mod b);       result: =a   end;     function reductsf(p: sf): sf;   begin       var t: =gcd(p);       if t> 1 then result: =(p[0] div t,p[1] div t)       else result: =p   end;     function addsf(a,b: sf): =reductsf((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));     function subsf(a,b: sf): =reductsf((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));   function multsf(a,b: sf): =reductsf((a[0]*b[0],a[1]*b[1]));         function divsf(a,b: sf): =reductsf((a[0]*b[1],a[1]*b[0]));   end. ***** пример работы с модулем ***** uses asm; begin   var a: =(5,24);   var b: =(7,8);   var c: =addsf(a,b);   writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1]) end. результат 5/24+7/8=13/12