5. записать в десятичной системе счисления целое число, если дан его дополнительный код: а) 0101100111000110; б) 1111111011011010. 7. рассчитайте время звучания моноаудиофайла, если при 16-битном кодировании и частоте дискретизации 32 кгц его объем равен: 700 кбайт;

5) 0101 1001 1100 0110 =>   => 1111 1110 1101 1010 => => 7)700 кб = 5734400 бит32 кгц = 32000 гц секунды: )

Блин! начал писать программу, а комп поэтому uses crt; var i, n, m, z1, z2 : integer; begin   clrscr;   write (' n = ');   readln(n);   writeln;   if (n< 0) or (n> 18) then writeln (' none! ')   else begin           for i: =11 to 99 do                 begin                     m: =i;                     z1: =m div 10;                     z2: =m mod 10;                     if (z1+z2=n) then writeln(' m = ', m);                 end;           end;   readln; end.

//это можно стереть. если в n есть 0 то тогда программа выведет no. program z1; var b,c,d,i,s,l: integer;     a: string; begin read(a); b: =length(a); s: =strtoint(a); c: =0; for i: =1 to b do  for i: =1 to b do  begin  d: =strtoint(a[i]);   if d=0 then l: =1;   end; if l=0 then begin                  for i: =1 to b do                      for i: =1 to b do                      begin                      d: =strtoint(a[i]);                       if (s mod d)=0 then c: =c+1;                       end;             end            else            write('no'); if (l=0) and (c=b) then write('t'); if (l=0) and (c< > b) then write('p'); end.