Одна секунда разбивается на 22050 частей. Каждая часть кодируется 8 битами = 1 байт. Т.е. 1 секунда 22050 байт. Умножаем на количество секунд. Т.е. получится 220500 байт = 220 кб. Проверьте арифметику, может ошибся где. Если сигнал стерео, соответствено умножить на два надо. но так как тут не сказано, то пусть будет моно и ничего умножать не надо.

0 0

4 года назад

Написать программу, определяющую , является ли треугольник ABCравнобедренный

Jyana [21]

Var
a,b,c:real;
begin
read(a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Треугольник равнобедренный');
else
writeln('Треугольник не равнобедренный');
end.

0 0

4 года назад

Дано натуральное число n. Выведите все числа от 1 до n. цикл не использовать. на Раскале

Змеев Алексей [6]

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
Range(1,ReadInteger('n=')).Println
end.

Пример
n= 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

0 0

2 года назад