К компьютеру,тк компьютеры не воспринимают вай-фай сигнал
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := Range(1, n).Average;
if m > 17 then
Print(m - 5)
else
Range(1, n).Aggregate(BigInteger.One, (p, q) -> p * q).Print
end.
F = 5,1 Мбайт= 5,1 *1024*1024 *8 бит =42781900,8 бит
t=2 мин =120 секунд
D=22050 Гц - частота дискретизации
Разрядность i = F : D :t =42781900,8 :22050 :120≈ 16 (бит)
ответ: разрядность =16 бит
1/512 мегабайт = 0,001953125 мегабайт
0,001953125 мегабайт *1024 = 2 килобайта
2 килобайта * 1024 = 2048 байт
2048 байт * 8 = 16384 бит
ответ: 16384 бит