;; length (a) <> length ( b) dolength (a)> length (b) then: = '0 '+ b; length (a) '0 'then c: = vume + c;: = c;; modslog (mpa1, mpa2, mpb1, mpb2: string; var ms1, ms2: string);: char;, i: integer;: = summ (mpa2, mpb2);: = summ (mpa1, mpb1); length (ms2)> length (mpa2) then begin: = summ (ms1, '1 ' ); delete (ms2, 1,1); end; length (ms1)> 2 then begin ms2: = summ (ms2, '1 '); delete (ms1, 1,1); end;; sdvig; ch1: char; i, n: integer; (z1, n, i); n of
: begin z1: = '00 '; ch1: = z2 [length (z2)]; (z2, length (z2), 1); z2: = '0' + z2; (z3 , length (z3), 1); z3: = ch1 + z3; end;
: begin: = '00 '; ch1: = z2 [length (z2)]; (z2, length (z2), 1); z2: = '1' + z2; (z3, length (z3), 1); z3: = ch1 + z3; end;
: begin: = '11 '; ch1: = z2 [length (z2)]; (z2, length (z2), 1); z2: = '0' + z2; (z3, length (z3), 1); z3: = ch1 + z3; end;
: begin z1: = '11 '; ch1: = z2 [length (z2)]; (z2, length (z2), 1); z2: = '1' + z2; (z3 , length (z3), 1); z3: = ch1 + z3; end;;; umnog; ch, chk: char; i, k, n: integer; shag, avto, mtrue2: boolean; n: = 1 to length (mb2) do z2: = z2 + '0 ';: = '00'; z3: = mb2; (z1, '|', z2, '|', z3); ​​chpminy then begin modslog (z1, z2, ma1, ma2, z1, z2); mz3: = z3; ('B <0 => + A * 2 ^ (-n)'); avshag; ('+'); (ma1, '|', ma2); (z1, '|', z2, '|', z3); ​​else avshag;: = z3 [length (z3)]; ch = '1 'then writeln (' m (b) (- ', length (mb2) , ') = 1: + m (a)') else writeln ('Z->');;: = false;: = false;: = length (z3); i: = k downto 1 do begin: = z3 [k]; ch = '1 'then (z1, z2, ma1, ma2, z1, z2); (' + '); (ma1,' | ', ma2); (z1,' | ', z2, '|', z3, 'Z->');;; (z1, '|', z2, '|', z3);: = z3 [k]; i <> 1 then beginch = '1 ' then writeln ('m (b) (-', i, ') = 1: + m (a)') else writeln ('Z->'); end; (chpminy) and (i = 1) then begin : = true; zs1 <> '-' then: = obrcod (modula, mtrue2); zs1 = '-' then modslog (z1, z2, '00 ', modula, z1, z2) modslog (z1, z2,' 11 ', modula, z1, z2); (' B <0 => + A ^ (-) '); (' + '); zs1 =' - 'then writeln ('00', '|', modula ) else downto 1 dos [i] = '1 'then: = 1; j: = 1 to length (s)-i do sum2: = sum2 * 2; sum2: = 0;: = sum + sum2;; s [length ( s)] = '1 'then inc (sum);: = sum;; izdvv...
