Question

Вычислить значение многочлена в точке x. x задать прямо в коде. Вывести ответ на экран. Вычисление произвести оптимально (подсказка - сх. Гор.)

Answer 1

Var
  x:real;
begin
  Write('x='); Read(x);
  Writeln(101+x*(30+x*(25+x*(10+x*(6+x)))))
end.