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.

Answer 2

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);
end.

Answer 3

Не забудь лучший ответ выбрать))

Answer 4

Мб в вк ещё поговорим?)

Answer 5

Давай.