Каков информационный объем в килобайтах стереоаудиофайла длительностью звучания 32 секунды при глубине звука 8 бит и частоте 16 кГц?

2. Файл с монозвуком имеет глубину кодирования 16 бит и частоту дискретизации 32 кГц. Вычислите информационный объем файла в килобайтах, если продолжительность его звучания 1 мин

за ясный ответ

Только первое знаю)32*8*16000=4096000бит =51200байт

1. современное решение // pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! function from5to10(self: sequence of string): sequence of integer;       extensionmethod; // перевод последовательности заданных на строках пятиричных чисел // в последовательность целых десятичных чисел begin   foreach var s in self do begin       var r: =0;       var pa: =1;       foreach var c in s.reverse do begin           r+=c.todigit*pa; pa*=5       end;       yield r       end end; begin   var s: =readlnstring('введите строку: ').matchvalues('[0-4]+').from5to10;   if s.count=0 then writeln('s=-1')   else writeln('s=',s.sum) end. пример введите строку: sdf812973j223k s=73 2. решение на turbopascal ("так писали наши отцы и деды в 1983 году, так и нас сейчас учат в школе") uses crt; function from5to10(n: string): integer; { перевод из пятиричного числа в строковом представлении   в целое десятичное } var   i,pa,s: integer; begin   s: =0;   pa: =1;   for i: =length(n) downto 1 do begin       s: =s+pa*(ord(n[i])-ord('0'));       pa: =pa*5       end;   from5to10: =s end; var   s,w: string;   i,k,r: integer; begin   clrscr;   write('введите строку: ');   readln(s);   w: ='';   r: =0;   k: =0;   for i: =1 to length(s) do begin       if pos(s[i],'01234')> 0 then begin           if w='' then k: =k+1;           w: =w+s[i]           end       else           if w< > '' then begin               r: =r+from5to10(w);               w: =''               end       end;   if k=0 then writeln('s=-1')   else writeln('s=',r);   readkey end.