Формула нахождения объема закодированного звука
A = D * i * t * с (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Тогда t = A / (D * i * с)
Приводим единицы измерения
D = 64 кГц = 64000 Гц
A = 4026531840 бит

t = A / (D * i * c) = 4026531840 / (64000 * 24 * 2) = 1310.72 секунд = 21.845333333333333 минут
Ответ 20

0 0

4 года назад

Срочно! Помогите!Известны баллы, полученные студентами за контрольную работу. Вычислить максимальный балл.Написать программу в п

XMan [7]

Program maxim;
const n=15 {15 студентов};
var a:array[1..n] of integer;
i,max:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(10){кол-во баллов до 15};
write (a[i],' ');
end;
max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
end;
writeln;
writeln (max);<span>
end.</span>

0 0

4 года назад

Помогите!!!является ли число перевёртышем,т.е числом, десятичная запись которого читается одинаково слева направо и справа налев

wvitold

begin

var n := readinteger();

for var i := 1 to n.ToString.Length div 2 do

begin

if (n.ToString[i] <> n.ToString[n.ToString.Length - i + 1]) then

begin

write('Нет');

exit;

end;

write('Перевёртыш');

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Задания по теме Циклы 1. Написать программу на языке Паскаль, выводящую все отрицательные члены арифметической прогрессии -11; -

ирина анатольевна...

2.
Program num;uses crt;var x,y,i,l:integer;begintextcolor(11);writeln('Введите i: ');readln(i);y:=0;for x:=14 to i do //Вместо 14 можешь вписать любое натуральное число но не больше "i"beginy:=y+x;end;write ('Ответ', y);readln;end.
1 и 3 можешь посмотреть у меня в профиле.

0 0

4 года назад