program raf105;
var a,otr: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a<0
then otr+= 1;
until a = 0;
writeln('Отрицательных чисел: ',otr);
end.
№2program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a>0
then sum+= a;
until a = 0;
writeln('Сумма положительных чисел: ',sum);
end.
PascalABC 3.4.2
4,37 ~ 4
Объяснение:
Так как частота дискретизации 16 кГц, то за одну секунду запоминается 16000 значений сигнала.
Глубина кодирования 24 бита, т. е. 3 байта.
Т. к. запись четврёхканальная, объём памяти, необходимый для хранения данных одного канала, умножается на 4, поэтому, так как потребовалось 48 Мбайт, один канал занимает:
12 Мбайт или 12·220 байт.
Чтобы найти время, в течение которого проводилась запись, необходимо разделить найденный информационный объем на глубину кодирования и на частоту дискретизации:
(12 * 2^20) / (16000 * 3) = 2^18 / 1000 = 262,144 сек.
Тем самым, время записи примерно равно:
4,37 минуты, что близко к 4 минутам.
