#8912: 为何错


happy1223 (吕意捷)


                 var
  a,b:longint;
begin
  while not eof do begin


  readln(a,b);
   if (a<0) and (b<0) then exit;

   if (abs(b-a))>50 then writeln(100-b-a)
                 else writeln((b-a));

 

  end;
end.

#8913: Re:为何错


lswei (魏子轩)


                 var
  a,b:longint;
begin
  while not eof do begin


  readln(a,b);
   if (a<0) and (b<0) then exit;

   if (abs(b-a))>50 then writeln(100-b+a)
                 else writeln((b-a));

 

  end;
end.