&&&lys 2012-08-02 20:24:00
点我顶贴
收藏
删除
var
i,j,n:integer;
begin
readln(n);
for i:=n downto 0 do
begin
read(j);
if j <> 0 then begin
if i <> n then
if j > 0 then
if j<>1 then write('+',j)
else write('+')
else if j<>-1 then write(j)
else write('-')
else
if abs(j)<>1 then write(j)
else if j = -1 then write('-');
if (i=0) and (abs(j)=1) then write(1);
if i>1 then write('x^',i)
else if i = 1 then write('x')
end;
end;
end.