A) Объем звукозаписи (в битах) можно рассчитать умножив частоту дискретизации(Гц) на глубину кодирования (бит) и на время (в сек.)
24000*16*(7*60)= 161280000 бит
161280000/8/1024/1024 = 19,23 МБайт
Ответ: 19,23 Мбайт
Б) Определим глубину кодирования i по формуле:
N=2^i, где N - количесвто уровней громкости
16177216=2^i
i=24 бит
Тогда объем звукозаписи рассчитаем перемножив частоту дискретизации, глубину кодирования и время.
41000*24*(3*60)= 177120000 бит
177120000/8/1024/1024= 21,11 Мбайт
Ответ: 21,11 Мбайт
<span>Это единственное устройство, которое там может обрабатывать информацию. Остальные хранят или передают.</span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
// PascalABC.Net
function dec2bin(n: integer): string;
begin
for var c:=31 downto 0 do
Result += IntToStr((N shr c) and 1);
end;
function count(b: string; c: char): integer;
begin
for var i:=1 to length(b) do
if b[i] = c then
Result += 1;
end;
begin
var N:=32;
var K:=3;
var sum:=0;
for var i:=1 to n do
if count(dec2bin(i), '1') = K then
begin
sum += 1;
end;
writeln(sum);
end.