Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var e, f, g, h: real;
Read(e, f, g, h);
var a := Sqrt(Abs(e - 3 / f) ** 3 + g);
var b := Sin(e) + Sqr(cos(h));
var c := 33 * g / (e * f - 3);
var d := b * b - 4 * a * c;
if d > 0 then
begin
d := Sqrt(d);
var x1 := (-b - d) / (2 * a);
var x2 := (-b + d) / (2 * a);
Writeln('x1=', x1, ', x2=', x2)
end
else if d = 0 then
Writeln('x=', -b / (2 * a))
else
Writeln('Нет корней')
end.
Приложения:
![](https://st.uroker.com/files/8aa/8aa65342909f12a1bd62336503b051e5.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад