Объяснение:
Вредные звуки-чрезмерный шумовой фон, искусственные техногенные звуки, инфра и ультразвук, бранная и нецензурная речь(это как для кого) а также музыка определённых музыкальных направлений.
Полезные звуки-все которые тебя успокаивают. Эти звуки тоже полезные: пение птиц,стрекотания насекомых,шум листвы,журчание ручья этим звуком иногда лечат.
Некоторые душевные расстройства лечатся пением птиц.
Пение дроздов, соловьёв,скворцов и жаворонков снимают стрессовые нагрузки, дают вдохновение.
Звуки капель дождя японские учёные используют в лечение некоторых болезней.
Классическая Музыка успокаивает усталого раздражённого человека.
Задача 1:
var a,r: double;
begin
writeln('Введите сторону квадрата a');
readln(a);
writeln('Введите радиус круга r');
readln(r);
writeln('Площадь фигуры: ',a*a-Pi*r*r);
end.
Задача 2:
var a, b, c, D, x1, x2: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=b*b-4*a*c;
if D>=0 then
begin
if (sqrt(D)=0) then
begin
x1:=-b/(2*a);
write('Один корень ',x1:0:2);
end
else
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);
end
end
else write('Корней нет');
end.
Var a: array [1..5] of integer;
i,min,max,b,j,g,h,f,c:integer;
begin
for i:= 1 to 5 do read (a[i]);
min:=a[1];
for i:= 2 to 5 do
if a[i]<min then
begin
min:= a[i];
j:= i;
end;
max:= a[1];
for i:= 2 to 5 do
if a[i]>max then
begin
max:= a[i];
h:=i;
end;
f:=a[j];
a[j]:=a[1];
a[1]:=f;
g:= a[h];
a[h]:=a[5];
a[5]:= g;
for i:= 1 to 5 do
write(a[i]:4);
end.