940x1024=962560 байт
или 962560 байт = 7700480 бит (весь файл) или = 770048 бит/сек.
поскольку качество звука определяется не только частотой дискретизации, но и размерностью квантования (разрядностью по амплитуде), однозначного ответа к этой задаче быть не может, так как ни дискретизация, ни глубина квантования в задаче не определена.
Например 1)при частоте дискретизации 10кГц разрядность одногоканального звука равна 7700480/10000=770 уровней амплитуды, или 10 бит (2^10=1024) 512<770<1024 или
2) при глубине квантования 256 (2^8=1 байт) частота дискретизации составляет: 770048/8=96256 Гц
к данной задаче можно сказать, что качество звука равно 770048бит/сек
<span>Рассмотрим, например, карандаш. Он состоит из деревянного корпуса и графитового стержня. Графитовый стержень — это существенный элемент карандаша, так как он определяет его главное назначение — писать, рисовать, то есть оставлять след на бумаге. Корпус служит для того, чтобы не ломался хрупкий графитовый стержень. Корпус — это вспомогательный элемент. Он может быть сделан не из дерева, а из другого материала (например, из пластмассы).</span>
Если в одной из 16 книг, значит информация может оказаться в каждой книге с равной вероятностью.
16 книг - это 4 бита, т.к. 2^4 - 16
Ответ: 4 бит.
Домашние приборы,размер,и цвет
<span>uses crt;
const nmax=100;
var x:array[1..nmax] of integer;
n,m,i,j,k,a,p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i]:4);
end;
writeln;
i:=1;
m:=n;
while i<n-1 do
begin
k:=1;
a:=x[i];
for j:=n downto i+1 do
if x[j]=a then k:=k+1;
if k>2 then
begin
j:=i;
while j<=n do
if x[j]=a then
begin
if j=n then n:=n-1
else
begin
for p:=j to n-1 do
x[p]:=x[p+1];
n:=n-1;
end;
end
else j:=j+1;
end
else i:=i+1;
end;
if n=0 then
begin
exit
end;
if n=m then
write('Все элементы встречены не более 2 раз и не удалены')
else
begin
for i:=1 to n do
write(x[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
for i:=1 to n do
write(x[i]:4);
end;</span>