Предмет: Информатика,
автор: andreykush620
Даю 50 баллов тому кто решит.
Приложения:
![](https://files.topotvet.com/i/93b/93be5219e966877df28b0ba18ef6d15d.jpg)
Ответы
Автор ответа:
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://files.topotvet.com/i/8aa/8aa65342909f12a1bd62336503b051e5.jpg)
Похожие вопросы
Предмет: Информатика,
автор: Ihoriop
Предмет: Физкультура и спорт,
автор: islomovasevara5858
Предмет: Алгебра,
автор: Sveta3333333
Предмет: Литература,
автор: Аноним