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

16/8 = 2,  в  2 раза, все просто

Var       i, s1, s2, s3, s4, n: integer; begin       write('n = ');       readln(n);       s1 : = 0;       s2 : = 0;       s3 : = 0;       s4 : = 0;             for i : = 1 to n do       begin               s1 : = s1 + i;               s2 : = s2 + sqr(i);               if i mod 2 = 0 then s3 : = s3 + i;       end;             for i : = 10 to 99 do s4 : = s4 + i;             writeln('сумма первых n натуральных чисел: ', s1);       writeln('сумма квадратов первых n натуральных чисел: ', s2);       writeln('сумма всех четных чисел: ', s3);       writeln('сумма всех двухзначных чисел: ', s4); end.

Попробуй так uses graph, crt;     var             d,r,r1,r2,rr,k,             x1,y1,x2,y2,x01,y01: integer;             xasp,yasp : word; begin   {инициируем графику}         d : = detect;         initgraph(d, r, ' ') ;         k: = graphresult;         if k < > grok then  writeln(grapherrormsg(k))   else begin {определяем отношение сторон и размеры экрана} x1 : = getmaxx div 2; y1 : = getmaxy div 2; getaspectratio(xasp, yasp); {вычисляем радиусы: }   r: = round(3*getmaxy*yasp/8/xasp);   r1 : = round(0.9*r); {часовые деления}   r2 : = round(0.95*r); {минутные деления} {изображаем циферблат}   circle(x1,y1,r); {первая внешняя окружность}   circle(x1,y1,round(1.02*r)); {вторая окружность}     for k : = 0 to 59 do {деления циферблата}       begin             if k mod 5=0 then                     rr : = r1 {часовые деления}           else                     rr: = r2 ; {минутные деления} {определяем координаты концов делений}   x01 : = x1+round(rr*sin(2*pi*k/60));   y01 : = y1-round(rr*xasp*cos(2*pi*k/60)/yasp);   x2 : = x1+round(r*sin(2*pi*k/60));   y2 : = y1-round(r*xasp*cos(2*pi*k/60)/yasp);   line(x01,y01,x2,y2) {выводим деление} end; {готовим вывод стрелок}   setwritemode(xorput);   setlinestyle(solidln,0,thickwidth);   r : = 0; {счетчик минут в одном часе} {цикл вывода стрелок}   repeat     for k : = 0 to 59 do {k = минуты}           if not keypressed then                 begin                               {координаты часовой стрелки}                               x2 : = x1+round(0.85*r1*sin(2*pi*r/60/12));                               y2 : = y1-round(0.85*r1*xasp*cos(2*pi*r/60/12)/yasp);                               {координаты минутной стрелки}                               x01: = x1+round(r2*sin(2*pi*k/60));                               y01: = y1-round(r2*xasp*cos(2*pi*k/60)/yasp);                               {изображаем стрелки}                                 line(x1,y1,x2,y2);                                 line(x1,y1,x01,y01);                                 delay(100); {для имитации реального темпа                                                                           нужно установить задержку 60000}                                                                         {для удаления стрелок выводим их еще раз! }                                 line(x1,y1,x01,y01);                                 line (x1,y1,x01,y01 ) ; {наращиваем и корректируем счетчик минут в часе} inc(r); if r=12*60  then   r : = 0 end until keypressed; if readkey=#0 then k: =ord(readkey); closegraph; end end.