Входные данные вводятся 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

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.