Одна минута монозаписи цифрового аудиофайла занимает на диске 1, 3 мб, разрядность звуковой платы-8.с какой частотой дискретизации записан звук?

Размер цифрового моноаудиофайла измеряется по формуле:   ,  где  d  –  частота дискретизации (гц),  t  – время звучания или записи звука,  i  - разрядность регистра (разрешение). отсюда получаем формулу: . считаем: a = 1,3 мб =  1363148,8 байт t = 1 мин. = 60 секунд i = 8 бит / 8 = 1 байт d = 1363148,8 байт / 60 секунд  * 1 байт = 22719,15 гц

Var a,b,c,x: real; begin  repeat  writeln('введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу');   readln(x);   if x=1   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a+b;     writeln('ответ: ',c);     end;   if x=2   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a-b;     writeln('ответ: ',c);     end;   if x=3   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a*b;     writeln('ответ: ',c);     end;   if x=4   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a/b;     writeln('ответ: ',c);     end;   if x=0 then writeln('пока! ');   until x=0; end.

Var a,b: real; c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1: writeln(a+b);     2: writeln(a-b);     3: writeln(a*b);     4: writeln(a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. вывод результат, точно как в условии: var a,b: real;       c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1:         if b < 0 then writeln(a,b,'=',a+b)         else writeln(a,'+',b,'=',a+b);     2:         if b < 0 then writeln(a,'+',-b,'=',a-b)         else writeln(a,b,'=',a-b);     3:         if b < 0 then writeln(a,'*(',b,')=',a*b)         else writeln(a,'*',b,'=',a*b);     4:         if b < 0 then writeln(a,': (',b,')=',a/b)         else writeln(a,': ',b,'=',a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. пример: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 4 введите два числа: 4 -2.5 ответ: 4: (-2.5)=-1.6 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 1 введите два числа: -3 -6 ответ: -3-6=-9 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 0 пока!