Каков объем в мб 1, 5 минутного моноаудиофайла при 24-битном кодировании и частоте дискретизации 20050 гц? ответ округлите с точностью до одного знака после запятой.

Объем памяти для хранения данных 1 канала (моно) 
I = f * b * t
(для хранения информации о звуке длительностью  t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования b бит требуется I бит памяти)
f = 20050 Гц
b = 24 бит
t = 1,5 мин = 1,5 * 60 = 90 сек

I = 20050 * 24 * 90 = 43308000 бит
I =  43308000 бит = 43308000/8 = 5413500 байт = 5413500/1024 ≈ 5286,621 кбайт = 5286,621/1024 ≈ 5,2 Мбайт 

I ≈ 5,2 Мбайт 

# Python 3.X

'''
Длина Московской кольцевой автомобильной
дороги - 109 километров. Байкер Вася
стартует с нулевого километра МКАД
и едет со скоростью v километров в час.
На какой отметке он остановится
через t часов?

Программа получает на вход
значение v и t. Если v>0, то Вася
движется в положительном направлении
по МКАД, если же значение v<0, то
в отрицательном.

Программа должна вывести целое число
от 0 до 108 — номер отметки, на которой
остановится Вася.
'''

l = 109

v, t = [int(input(x)) for x in ('Скорость (км/с): ', 'Время (час): ')]
pos = v * t % l

print(pos)

Задание №1

var r:integer; 
begin 
writeln('Введите радиус'); 
read(r); 
writeln('Длина окружности = ',2*pi*r); 
writeln('Площадь круга = ',pi*sqr(r)); 
end.

Задание №2

var a,d,n:integer; 
begin 
writeln('Введите первый член, знаменатель, число членов'); 
read(a,d,n); 
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); 
end. 

Задание №3

var m,n:integer; 
begin 
writeln('Введите m и n'); 
read(m,n); 
if m=n then begin 
m:=0; 
n:=0; 
end; 
if (m>n) then n:=m 
else if n>m then m:=n; 
end.

Задание №4

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

Задание №5

var a,b,c:integer; 
begin 
a:=0; 
c:=0; 
repeat 
writeln('Введите число'); 
read(b); 
if b<0 then a:=a+1; 
c:=c+1; 
until c=3; 
writeln('Количество отрицательных = ',a); 
end.

Задание №6

var a,c:integer; 
b:real; 
begin 
writeln('Введите количество часов'); 
read(a); 
c:=a div 3; 
b:=power(2, c); 
writeln(b); 
end.

Задание №7

const 
n=10; 
var a:array [1..10] of integer; 
i,k,s:integer; 
begin 
writeln('Введите k'); 
read(k); 
writeln('Введите элементы массива'); 
for i:=1 to n do begin 
read(a[i]); 
if a[i] mod k =0 then s:=s+a[i]; 
end; 
writeln(s); 
end.