Найти ошибку в паскале пишет false program math1; var a,b,c,d,x,x1,x2: real; begin readln(a,b,c); if b=0 then if (c=0) then writeln( 'x=0') else if (-c/a< 0) then writeln('корней нет') else writeln ( x1=sqrt(-c/a), x2=-sqrt(-c/a)) else if (c=0) then writeln ( 'x1=0', x2=-b/a) else d : =b*b-4*a*c; if (d< 0) then writeln( 'корней нет' ) else if (d=0) then writeln ( x= -b/a) else writeln ( x1= -b+sqrt(d)/(2*a) , x2= -b-sqrt(d)/(2*a) ) end.

{это решение кв. ур, вот немного другой алгоритм: } program math; var d,e,f, a, b, c: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('d=b*b-4*a*c=',d: 6: 2); if (d> 0) then begin e: = (-b/(2*a)); f: = (sqrt(d)/(2*a)); writeln('d> 0, значит 2 корня: '); writeln('x1= ',e-f: 6: 2); writeln('x2= ',e+f: 6: 2); end; if(d=0) then writeln(' d=0, значит 1 корень: ',-b/2*a: 6: 2); if (d< 0) then writeln(' d< 0, значит корней нет '); end.

Для начала посчитаем, сколько бит информации было передано: 2 минуты и 45 секунд = 165 секунд 165 с * 128000 бит/с = 21120000 бит теперь вспомним, что такое частота дискретизация и уровни квантования. дело в том, что аудио сигнал - это такая прикольная сложная синусоида. чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). для каждого из этих промежутков записывается что-то вроде среднего значения высоты. количество возможных значений - количество уровней квантования. но это так - если говорить . подробнее прочитайте в своём учебнике информатики. итак - у нас 256 уровней квантования. значит каждое из значений можно записать 8 битами. и на секунду у нас приходится 22000 таких записей. то есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами. 21120000 / 176000 = 120 секунд. вот так вот всё просто =)