Оцените в мегабайтах объем 1 минуты стерео звукозаписи с точностью до двух знаков после запятой, кодируемой без сжатия, если значение сигнала фиксируется 44032 раза в секунду и записывается 16-битным кодом

v=каналы (штуки) *частота (1/с) *битность (бит) *время (с)

v=2*44032*16*60 бит = 2^1 * 43*2^10 *2^4 *15*2^4=43*15*2^17 бит

(43*15*2^17)/2^23 мбайт=(43*15)/2^6 мбайт=645/64 мбайт = 10,08 мбайт

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}