Var
e,f,g,a,b,c,D:real;
Begin
Write('e = ');ReadLn(e);
Write('f = ');ReadLn(f);
Write('g = ');ReadLn(g);
a:=power(abs(e-f),3)*Cos(g);
b:=(17*e-f/g)/3;
c:=sqrt(e*e+g*g);
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
D:=b*b-4*a*c;
WriteLn('d = ',D);
if D<0 then Write('Действительных корней нет')<br>else
Begin
WriteLn('x1 = ',(-b+sqrt(D))/(2*a));
WriteLn('x2 = ',(-b-sqrt(D))/(2*a));
End
End.
e = -10
f = 9
g = 9
a = -6249.442466267
b = -57
c = 13.4536240470737
d = 339559.597779893
x1 = -0.0511819597332229
x2 = 0.0420611461074199