Question

Pascal //Вводится `5` целых чисел коэффициенты уравнения(фото) Найти все целые различные корни этого уравнения.

Answer 1

Пример решения уравнения $x^{5} -2x^{4}-18x^{3}+68x^{2}-79x+30=0$

## uses NumLibABC;

var a := ReadArrReal('Введите коэффициенты в порядке возрастания степеней:', 5);

a := a + |1.0|;

var P := new Polynom(a);

var oL := new PolRt(P);

var r := oL.Value;

var L := new List<integer>;

foreach var d in r do

 if d.Imaginary = 0 then

 begin

   var x := Round(d.Real, 6);

   if Frac(x) = 0 then

       L.Add(Trunc(x))

 end;

var b := L.Distinct.ToArray;

if b.Length > 0 then

 b.Print

else

 Print('Не найдено целых корней')