Оцените информационный объем моноаудиофайла длительностью звучания 1 мин, если "глубина" кодирования и частота дискретизации звукового сигнала равны соответственно: а) 16 бит и 8 кгц; б) 16 бит и 24 кгц. запишите звуковые файлы с такими параметрами и сравните полученные объемы с вычисленными

А) v = d * t * i * k v - информационный объем файла d - частота дискретизации t - время звучания i - глубина кодирования 1 сигнала k - количество каналов d1 = 8 кгц = 8000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i1 = 16 бит = 2 байта v1 = 8000 гц  * 60 c * 2 байта * 1  =  960000 байт =  937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла d2 = 24 кгц = 24000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i2 = 16 бит = 2 байта v2 = 24000 гц  * 60 c * 2 байта * 1 =  2880000 байт =  2812,5 килобайт =  2,75 мегабайт -  информационный объем 2 звукового файла детская песня - колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 мб и больше 1 объема на 1,18 мб песня валентины толкуновой тебя любила - 1,05 мб больше 1 объема на 0,14  мб, меньше второго объема на 1,7 мб

//pascalabc.net//версия 3.3, сборка 1611 (06.01.2018) 1) begin   var m: =arrrandom(readinteger('n=',90); m.println;   var (a,b): =readinteger2('a,b=');   m: =m.where(t-> t mod 7< > 0).where(t-> not(t.inrange(a,; m.println; end. пример: n= 10 18 54 30 -38 39 16 -40 68 2 -36 a,b= 18 30 54 -38 39 16 -40 68 2 -36 2) begin   var m: =arrrandom(readinteger('n=',90); m.println;   var k: =readinteger('k=');   var i: =0;   while i< > m.length-1 do   begin     if (m[i]< 0) and (m[i+1]< 0) or (m[i]> 0) and (m[i+1]> 0)     then begin       setlength(m,m.length+1);       for var j: =m.length-2 downto i+1 do m[j+1]: =m[j];       m[i+1]: =k;       i+=1;     end;     i+=1;   end;   m.println; end.пример: n= 10 25 89 -4 5 85 30 37 -3 13 -3 k= 0 25 0 89 -4 5 0 85 0 30 0 37 -3 13 -3