Поделитесь своими знаниями, ответьте на вопрос:
Производится двухканальная (стерео) звукозапись с частотой дискретизации 16 кГц и 4-битным разрешением. Запись длится 1 минуту, ее результаты записываются в файл, сжатие данных не производится. Укажите размер полученного файла (в Мбайт) с точностью 1 Мбайт. 2.Производится звукозапись музыкального фрагмента в формате квадро (четырехканальная запись) с частотой дискретизации 32 кГц и 24-битным разрешением. Результаты записываются в файл, сжатие данных не производится; размер полученного файла 90 Мбайт. Затем производится повторная запись этого же фрагмента в формате стерео (двухканальная запись) с частотой дискретизации 64 кГц и 16-битным разрешением. Сжатие данных не производилось. Укажите размер файла в Мбайт, полученного при повторной записи. 3. Музыкальный фрагмент был записан в формате 7.1 (восьмиканальная запись), оцифрован и сохранен в виде файла без использования сжатия данных. Размер полученного файла – 48 Мбайт. Затем тот же музыкальный фрагмент был оцифрован повторно в формате стерео (двухканальная запись) и оцифрован с разрешением в 1, 5 раза меньше и с частотой дискретизации в 2 раза больше, чем в первый раз. Сжатие данных не производилось. Укажите размер файла в Мбайт, полученного при повторной записи.
type z=array of byte;
var i,a,b,s: integer;
digits: z;
f: text;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
read(f,b);
close(f);
s:=a+b;
i:=0;
while(s>0) do
begin
setlength(digits,i+1);
digits[i]:=s mod 10;
s:=s div 10;
i:=i+1;
end;
for i:=0 to length(digits)-2 do
for b:=0 to length(digits)-i-2 do
if (digits[b] > digits[b+1]) then
begin
a:= digits[b];
digits[b] := digits[b+1];
digits[b+1] := a;
end;
if(digits[0]=0) then for i:=0 to length(digits)-1 do
if(digits[i]<>0) then
begin
digits[0]:=digits[i];
digits[i]:=0;
break;
end;
assign(f,'output.txt');
rewrite(f);
for i:=0 to length(digits)-1 do write(f,digits[i]);
close(f);
end.