game.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

program game;
var
  m,n,t,f,g,i:longint;
begin
  assign(input,'game.in');
  reset(input);
  assign(output,'game.out');
  rewrite(output);
  readln(g);
  for i:=1 to g do
  begin
    readln(m,n);
    if m<n then
    begin
      t:=m;
      m:=n;
      n:=t;
    end;
    f:=1;
    while (m div n=1) and (m<>n) do
    begin
      t:=m mod n;
      m:=n;
      n:=t;
      f:=-f;
    end;
    if f=1
      then writeln('Stan wins')
      else writeln('Ollie wins');
  end;
  close(input);
  close(output);
end.