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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.