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

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.

Comments

Если хочется фиксированное значение х в программе, замените строку Write('x='); Read(x); на x:=значение;