tyvj/tyvj1103.pas

   1 const
   2 x='x';
   3
   4 var
   5    n,i : longint;
   6    a   : array [0..100] of longint;
   7
   8 begin
   9    readln(n);
  10    for i:=n downto 0 do read(a[i]);
  11    for i:=n downto 0 do
  12       if (a[i]>1) or (a[i]<-1) then
  13       begin
  14          if a[i]<-1 then write(a[i]) else begin if i<>n then write('+'); write(a[i]); end;
  15          if i=1 then write(x) else begin if i<>0 then write(x,'^',i); end;
  16       end
  17       else
  18       begin
  19          if a[i]=0 then continue;
  20          if a[i]=-1 then write('-') else begin if i<>n then write('+'); end;
  21          if i=1 then write(x) else begin if i<>0 then write(x,'^',i) else write(1) end;
  22       end;
  23 end.
  24