Написать программу, которая находит решения уравнения ax^3+bx=0 для любых заданных...

Question

Написать программу, которая находит решения уравнения ax^3+bx=0 для любых заданных значений a и b.
Пожалуйста, на паскале

Comments

Точно x в кубе? Там не квадрат?

---

в кубе

Answer 1

Var a,b:integer;
x,c:real;
begin
read(a,b);
if ((-b)/a)>=0 then begin 
      x:=sqrt((-b)/a); 
      c:=-x; 
   writeln('x=',0); 
   writeln('x=',x); 
   writeln('x=',c);
end
else 
   writeln('x=',0);
end.