Код
program gorner_scheme;
var a:array[0..10]of integer;
i:integer;
x0,s:longint;
begin
read(x0);
for i:=0 to 10 do read(a[i]);
s:=a[10];
for i:=10 downto 1 do s:=s*x0+a[i-1];
writeln;
write(s);
end.
Код
program gorner2;
var x:double;
n:integer;
function stepen(n:integer):double;
begin
if n = 0 then stepen:=1 else
begin
if n>0 then stepen:=stepen(n-1)*x else
stepen:=1/(stepen(n+1)*x);
end;
end;
begin
readln(x);
readln(n);
writeln(stepen(n):0:3);
end.