Задача 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.
Объяснение:
Вредные звуки-чрезмерный шумовой фон, искусственные техногенные звуки, инфра и ультразвук, бранная и нецензурная речь(это как для кого) а также музыка определённых музыкальных направлений.
Полезные звуки-все которые тебя успокаивают. Эти звуки тоже полезные: пение птиц,стрекотания насекомых,шум листвы,журчание ручья этим звуком иногда лечат.
Некоторые душевные расстройства лечатся пением птиц.
Пение дроздов, соловьёв,скворцов и жаворонков снимают стрессовые нагрузки, дают вдохновение.
Звуки капель дождя японские учёные используют в лечение некоторых болезней.
Классическая Музыка успокаивает усталого раздражённого человека.