能讲一下依据吗？

> 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了 (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