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

• Re:终于AC了 (425) rommy 2010-03-22 19:44:18
  • Re:终于AC了 (24) HJWAJ 2010-07-07 11:41:49
    • Re:终于AC了 (0) liuyoulin1 2010-08-28 08:18:59
      • Re:终于AC了 (0) peixuangeng 2010-10-08 16:46:20