Входные данные Вводятся 4 числа: a, b, c и d. Помогите решить для паскаля. Выходные данные Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания. Если на данном отрезке нет ни одного решения, то ничего выводить не нужно.
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.<br>
var a,b,c,d:real; x:longint; begin readln(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);<br>end.
Не забудь лучший ответ выбрать))
Мб в вк ещё поговорим?)
Давай.