var
  a,b:array [1..1000] of longint;
  k,i:longint;
begin
  k:=0;
  repeat
    inc(k);
    readln(a[k],b[k]);
  until eof;
  for i:=1 to k do
    if a[i]<>b[i] then
      begin
        if odd(abs(a[i]-b[i])) then writeln(0)
          else writeln(1);
      end
      else if odd(a[i]) then writeln(1) else writeln(0);
end.

• 这个算法是错的吧 (0) pladene 2004-03-29 14:30:22