Определите стерео или моно звук воспроизводит звуковая карта, если за 4 минуты она при частоте 48кгц и 16-битным разрешением (глубиной звука) воспроизводит файл информационный объем которого 45000кбайт.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 procedure GetProdNeg(a:array of integer; var p:real); // произведение отрицательных элементов begin p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e) end;
function IsPrime(n:integer):boolean:= Range(2,Round(sqrt(n))).All(i->n mod i<>0);
procedure ArrPrime(n:integer; var a:array of integer); // массив простых чисел не больших n begin a:=Range(2,n).Where(i->IsPrime(i)).ToArray end;
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); a.Println; var r:real; GetProdNeg(a,r); Writeln('Произведение ',r); n:=ReadInteger('n='); var b:array of integer; ArrPrime(n,b); b.Println end.
Максимальное число, составленное из утроенного произведения цифр будет 9*3*N - не может быть больше 54, т.е. N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа). Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer; begin write('n = '); readln(n); if n=2 then begin m:=11; repeat if (m mod 10)*(m div 10)*3=m then begin writeln('число: ',m); m:=55; end; m:=m+1; until m>54; end else writeln('нет решения'); end.
Дано
D=48кГц=48000Гц
t=4минуты=240c
I=16 бит=2 байта
A=45000кбайт=46 080 000 байт
Решение
Aмоно файла=D*I*t
Aстерео файла=D*I*t*2
A=48000Гц*2байта*240с=22500кбайт - воспроизводила бы видеокарта, если бы это был моно звук
A=48000Гц*2байта*240с*2=45000кбайт
ответ:Видеокарта воспроизводит стерео звук