Var C:array[1..100] of Integer;
i,N,Q,R,A,B:integer;
T:real;
begin
Readln(N,A,B);
For i:=1 to N do
C[i]:=Random(-20,20);
R:=C[1];
Q:=1;
For i:=1 to N do
begin
If C[i]<R then
R:=C[i];
If C[i] mod 2=1 then
Q:=Q*C[i];
If (C[i]>A) and (C[i]<B) then
S:=S+1;
end;
T:=(R/(Q+1))+S;
Writeln(R,' ',Q,' ',S,' ',T);
end.
Стыдно не знать, Стив Джобс
В первом скорее всего, если звук моно, то по формуле A=dTI, где А размер файла, d частота дискретизации (насколько я помню, худшее это 8 кГц) Т время звучания, I глубина звука (8 бит худшее вроде бы) можно вычислить.
Во втором подставляешь I и как 8 бит, и как 16, получаешь 2 ответа.
<span>Пусть размер музыкального файла X, тогда скорость канала А ' x/30 '. Тот же файл в пункте Б, разрешение увеличили в два раза т.е будет x*2, а дискритизацию уменьшили в 1,5 раза, тогда (x*2)/1,5 это объем файла после всех процедур сжатия. Так как скорость в пункте Б больше в 4 раза, чем в А(X/30), тогда скорость в Б будет 4*(x/30) т.е (4x)/30. Ну и теперь стандартно объем после всех процедур (2x/1,5) поделим на скорость т.е (4x)/30, можно наглядно все записать, в результате получится 10.</span>