Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Формула для определения информационного объёма звукового байла:
N = k L f t
k - количество каналов (1 для моно, 2 для стерео)
L - глубина кодирования (количество информации в одном измерении)
f - частота (количество измерений в секунду)
t - продолжительность записи
1) N = 1 * 8 бит * 8000 Гц * 10 с = 640 000 бит = 80 000 байт = 78,1 Кб
2) N = 2 * 16 бит * 48000 Гц * 10 с = 15 360 000 бит = 1 920 000 байт = 1875 Кб = 1,8 Мб
A = int(input())
if 2 <= a <= 5:
a += 10
elif 7 <= a <= 40:
a -= 100
elif a <= 0 or a > 3000:
a *= 3
else:
a = 0
print(a)