Входные данные Вводятся 4 числа: a, b, c и d. Выходные данные Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке убывания. Если на данном отрезке нет ни одного решения, то нич...
Входные данные
Вводятся 4 числа: a, b, c и d.
Выходные данные
Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке убывания. Если на данном отрезке нет ни одного решения, то ничего выводить не нужно.
Примеры
входные данные
2
4
9
1
выходные данные
входные данные
1
2
-4
-8
выходные данные
2
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
Var
y,a,b,c,d:real;
begin
read(a,b,c,d);
range(0,1000).where(x -> a*power(real(x),3)+b*sqr(x)+c*x+d=0).Reverse.Print;
end.
Пример ввода:
0
-1
1
0
Пример вывода:
1 0
Не нашли ответ?
Похожие вопросы