Question

Входные данные Вводятся 4 числа: a, b, c и d. Помогите решить для паскаля. Выходные данные Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания. Если на данном отрезке нет ни одного решения, то ничего выводить не нужно.

Answer 1

Var  a,b,c,d:real;  x:longint;beginreadln(a,b,c,d);  for x:=0 to 1000 do     if abs(a*x*x*x+b*x*x+c*x+d)<=1e-7 then writeln(x);end.