{Файл: prog3_13.pasЗадача: Дано целое положительное число n, вещественное число x. Найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)+...+a1*x^1+a0, если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке:an, a(n-1), ..., a1, a0Автор: Дата 22,09,2015}var n, a, i, j :integer; x, p, x1 :real; begin p:=0; {ввод постояных x, n} writeln ('введите n, x'); readln (n, x); {начало вычисление многочлена} for i:=n downto 1 do begin {ввод an, an-1,..., a1, a0} writeln ('введите a',i); readln (a); for j:=1 to n do begin {вычисление x^n} x1:=1; x1:= x1*x; end; {вычисление an*x^n+a(n-1)+x^(n-1)+...+a1*x^1+a0} p:=a*x1+p; end; {ответ} writeln('значение многочлена ',p);end.