. Дано три числа. Знайти остачу від ділення кубу суму першого і другого числа на подвоєний добуток першого і третього числа.

112 секунд

Объяснение:

V = t * f * i * k, где  

V - информационный объём аудио файла (размер файла, содержащего запись звука)

t - общая длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)

k -  количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

V = 14 000 Кбайт = 14 000 * 1 024 = 14 336 000 байт = 14 336 000 * 8 = 114 688 000 бит

f = 64 000 Гц

i = 16 бит

k = 1

Найти:

t

V = t * f * i * k

секунд

t = 112 секунд = 1 мин 52 секунды

uses graphABC;
function ris(x,y,r,n:integer):integer;
begin
if n=0 then ris:=0
else
begin  
circle(x,y,r);
dec(n);  
ris:=ris(x+round((r-r/3)*cos(pi/3)),y-round((r-r/3)*sin(pi/3)),r div 3,n);     ris:=ris(x+round((r-r/3)*cos(2*pi/3)),y-round((r-r/3)*sin(2*pi/3)),r div 3,n);     ris:=ris(x+round((r-r/3)*cos(pi)),y-round((r-r/3)*sin(pi)),r div 3,n)
ris:=ris(x+round((r-r/3)*cos(4*pi/3)),y-round((r-r/3)*sin(4*pi/3)),r div 3,n);     ris:=ris(x+round((r-r/3)*cos(5*pi/3)),y-round((r-r/3)*sin(5*pi/3)),r div 3,n);     ris:=ris(x+round((r-r/3)*cos(2*pi)),y-round((r-r/3)*sin(2*pi)),r div 3,n);  
end
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
ris(x,y,200,5);
end.