Даны действительные числа x, y. если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0, 5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5; 2, 0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . , завтра зачет.

Var   x, y:   real; begin   readln(x, y);   if ((x < 0) and (y < 0)) then     begin     x : = abs(x);     y : = abs(y);     end   else   if < 0) and (y > = 0)) or ((x > = 0) and (y < then     begin     x += 0.5;     y += 0.5;     end   else   if .5 < = x) and (x < = 2)) or ((0.5 < = y) and (y < = then     begin     x /= 10;     y /= 10;     end;   writeln(x, ' ', y); end.

Теория: по определению 1 гц это одно колебание за секунду, а значит 32 кгц это 32 000 колебаний в секунду. у нас 16-ти битное кодирование, что означает, что каждое колебание описывается 16 битами информации. то есть, к примеру, чтобы закодировать 1 секунду нашего аудио нам нужно 16*32 000 = 512 000 бит. теперь к нашей : в килобайте 1024 байтов, в байте 8 бит. считаем сколько бит в 700 кбайтах 700 * 1024 * 8 = 5 734 400 считаем сколько колебаний мы можем описать этими данными: делим количество доступных нам бит на 16. 5 734 400 / 16 = 358 400. теперь нужно понять сколько это в секундах. делим колебания на нашу частоту дискретизации (32 000): 358 400 / 32000 = 11,2 (секунд) а если без долгих слов, то: размер файла / битность / частота дискретизации = время звучания 700*1024*8/16/32000=11.2

F=a+(a*b+c)+c f=a*a*b+a*c+c f=a*b+c*(a+1) f=a*b+c abc    a*b          f 000      0          0 001      0          1 010        0          0 011        0          1 100        0          0 101        0          1 110        1          1 111        1          1