Аудиофайл оцифрованный с разрядностью 16 бит и частотой дискретизации 44. 1 кгц был обработан программой сжатия и передан пл каналу связи с заявленной скоростью 1 mbps за 42.336 секунды. время воспроизведения данного файла через звуковоспроизводящее устройство составило 5 минут. аудиофайл перед передачей был сжат с коэффицентом

👇

Ответ:

лорглролрл

07.04.2021

16 бит гц * (44.1 кГц * 1000) * (5 мин * 60) сек = 211680000 бит вес до сжатия.
(1 мбит сек * 1000 000) бит сек * 42.336 сек = 42336000 бит вес файла после сжатия.
211680000 бит был / 42336000 бит стал = 5 раз.

коэффициент 5 к 1.

4,5(49 оценок)

Открыть все ответы

Ответ:

trototil

07.04.2021

Объяснение:

Последовательность дней недели периодична с периодом 7, поэтому номер дня недели можно найти, взяв остаток от деления: (номер дня недели первого числа + сколько Такое решение будет давать верный ответ для всех дней недели кроме воскресенья: для воскресений будет выведен ноль (а не 7). Решить это можно, перенумеровав все номера дней недели с нуля, а не с единицы.

m - 1 – номер дня недели первого числа месяца (считая с 0)

n - 1 – пройдёт от первого числа

(m + n - 2) mod 7 – номер нужного дня недели (считая с 0)

(m + n - 2) mod 7 + 1 – ответ.

Программа (PascalABC.NET):

begin

var n := ReadInteger;

var m := ReadInteger;

print((m + n - 2) mod 7 + 1)

end.

Пример ввода:

Пример вывода:

(Действительно, 1 апреля 2018 года – воскресенье, а сегодня, 7 апреля – суббота)

4,6(37 оценок)

Ответ:

3Влад11

07.04.2021

// PascalABC.NET 3.0, сборка 1073
var
a,b,c:integer;
begin
Write('Введи a,b,c: '); Read(a,b,c);
if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
else Writeln('Все числа различные')
end.

Тестовое решение:
Введи a,b,c: 6 3 -12
Все числа различные

Введи a,b,c: 5 -4 5
Есть пара одинаковых

// PascalABC.NET 3.0, сборка 1073
var
n:string;
a,b:char;
begin
Write('Введи натуральное число n: '); Readln(n);
Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
else Writeln('В числе цифры '+a+' нет');
if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
else Writeln('В числе цифры '+b+' нет')
end.

Тестовое решение:
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7

// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
fiba,fibb,fib:longint;
begin
Write('Введи натуральное число (1-46): '); Read(n);
if n<3 then Writeln('Число Фибоначчи равно 1')
else begin
    fiba:=1; fibb:=fiba;
    for i:=3 to n do begin
      fib:=fiba+fibb;
      fiba:=fibb; fibb:=fib
    end;
    Writeln('Число Фибоначчи равно ',fib)
end
end.

Тестовое решение:
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233

4,6(97 оценок)

Это интересно:

Дом-и-сад

28.11.2021

Как сделать небольшую септическую систему...

Здоровье

16.08.2022

Как найти гипнотерапевта: советы и рекомендации...

Дом-и-сад

29.04.2023

Как правильно покрасить кожаный диван: секреты и советы...

Компьютеры-и-электроника