Решить уравнение ax^3+bx для произвольных a, b. Составить программу ** Паскале.

Question

Решить уравнение ax^3+bx для произвольных a, b. Составить программу на Паскале.

Answer 1

Var a,b: real;

begin
readln(a, b);
if a=0 then   if b = 0 then writeln ('x - любое значение') 
else writeln ('x1 = 0');

if a>0 then  if (b>=0) then writeln ('x1 = 0') 
else writeln('x1=0 ', 'x2=',-sqrt(-b/a),' ', 'x3=',sqrt(-b/a));

if a<0 then  if (b<=0) then writeln ('x1 = 0')  <br>else writeln('x1=0 ', 'x2=',-sqrt(b/-a),' ', 'x3=',sqrt(b/-a))

end.

Comments

все верно?

---

я запускаю и что доожно быть?

---

вводи два числа

---

ввел

---

пишет ошибку

---

но у меня работает