Написать программу, которая находит решения уравнения ax^3+bx=0 для любых заданных значений a и b. Пожалуйста, на паскале
Answers & Comments
M12003
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.
Answers & Comments
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.