Объем файла равен=частота дискретизации*глубина звука*кол-во дорожек* время,
48*1024*1024*8бит=64000*16*t*2
t=48*1024*1024*8/(16*2*64000)=196.6 сек=3,28 мин=3 мин
Для начала переведем число из десятичной системы в двоичную
317=100111101
Проверяем:
1+0+4+8+16+32+0+0+256=317.
Все сходится.
Значит, в двоичной системе этого числа 6 единиц.
Var
i,n,a,b,c:int64;
Begin
a:=0; b:=1;
Write('Введите число n: '); Readln(n);
Write('Число фибоначи под номером ',n,': ');
Case n of
0:write('0');
1:write('1') else Begin
for i := 2 to n do Begin
c:=a+b;
a:=b;
b:=c;
End;
write(c);
End;
End;
End.
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>