poj1067代码

原题目：http://poj.org/problem?id=1067
由于推导公式过于复杂，在此不标明
为了美观不压行

var a,b,n,i:longint;begin     while not eof do begin         readln(a,b);        n:=abs(a-b);        if a>b then a:=b;        if a=trunc((n*(sqrt(5)+1)/2))then writeln('0')        else  writeln('1');    end;end.