1
375 байт = 375*8 бит = 3000 бит всего, значит на каждый символ приходится:
3000 / 500 бит = 6 бит
6ю битами мы может закодировать <span> различных символов.</span>
ответ. не более чем 64 2
Число символов в сообщении равно:
Значит на каждый символ приходится:
9000 / 14400 байт = 9000 * 8 / 14400 бит = 5 бит
это информационный вес каждого символа.
с помощью 5 бит можно закодировать <span> различных символов.</span>
<span>ответ. 5 бит, 32 символа так надеюсь</span>
// F#
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0
<span>
</span>
частота дискретизации: D = А / Т / I
А - объем памяти (в байтах)
Т - время записи (в секундах)
I - разрядность звуковой платы (в байтах)
1,3 Мбайт = 1363148,8 байт
1 минута = 60 секунд
8 бит - 1 байт
найдем частоту дискретизации:
1363148,8 байт / 60 секунд / 1 байт = 22719,1 Гц
значит D = 22,05 кГц
Не знаю я на это ответа, сорян
//#1
var
a, b: array of integer;
n: integer;
procedure parse(var a, b: array of integer; n: integer);
begin
var sum_p: integer := 0;
var sum_m: integer := 0;
var data: integer := 0;
setlength(a, n); setlength(b, n);
var i:integer;
for i := low(a) to high(a) do
begin
readln(a[i]); readln(b[i]);
sum_p += 3a[i];//kov vo zabitix myachei
sum_m += b[i];//kol vo promaxov
if b[i] > 1 then inc(data);
end;
writeln(sum_p - sum_m);
writeln(data);
end;
begin
readln(n);
parse(a, b, n);
end.
//#2
var
a: array of integer;
n: integer;
procedure parse(var a: array of integer; n: integer);
var
i: integer;
begin
var data: integer := 0;
setlength(a, n);
var sum: integer := 0;
for i := low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;
writeln(sum / (high(a) + 1):0:4);
write(data);
end;
begin
readln(n);
parse(a, n);
end.