Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.
//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
WriteLn('Vvedite nomer bileta: ');
ReadLn(n);
m1:=n div 1000;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
s1:=n1+n2+n3;
m2:=n mod 1000;
n4:=m2 div 100;
n5:=m2 mod 10;
n6:=(m2-n4*100-n5) div 10;
s2:=n4+n5+n6;
if s1=s2 then WriteLn('Bilet schaslivyi')
else WriteLn('Bilet ne schaslivyi');
ReadLn
END.
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
В первом D9;
т.к. в среднее значение не входит С1, то среднее значение запишется так: (95-С1)/6=10; отсюда С1=35