记录编号	12593	评测结果	AAAEEEEAEE
题目名称	多项式	最终得分	40
用户昵称	.Xmz	是否通过	未通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2009-09-15 18:06:59	内存使用	0.19 MiB

program xmz;
var
 n,a,b,c,t,i:longint;
 x:array[1..100]of integer;
 f:array[1..100,1..100]of real;
 s:int64;
 ss:real;
 f1,f2:text;
begin
 assign(f1,'poly.in');assign(f2,'poly.out');
 reset(f1);rewrite(f2);
 read(f1,i);
 for a:=1 to i do
  begin
  read(f1,t);
  if t<>0 then
   begin
    n:=n+1;
    x[n]:=t;
   end;
  end;
 for a:=1 to n do
  begin
   s:=1;
   for b:=1 to n+1 do
    begin
     f[a,b]:=s;
     s:=s*x[a];
    end;
  end;

 for a:=1 to n do
  for b:=1 to n do
   if a<>b then
   begin
    ss:=f[b,a];
    for c:=1 to n+1 do
     f[b,c]:=f[a,c]*ss/f[a,a]-f[b,c];
   end;

 for a:=n downto 1 do
  writeln(f2,trunc(-f[a,n+1]/f[a,a]));
 for a:=1 to i-n do
  writeln(f2,0);
 close(f1);close(f2);
end.