Question

Вычислить по схеме горнера: Y=x^10+2x^9 +3x^8...+10x+11

Answer 1

Var
  x,y:real;
  i:integer;
begin
  y:=0;
  Write('x= ');
  Read(x);
  for i:=1 to 11 do y:=i+y*x;
  Writeln('Y= ',y)
end.

Пример
x=3.6
Y= 700939.22164521