poj2505

【题意】

初始为1，两个人轮流乘一个2到9之间的数，谁先大于n谁赢

【输入】

多组数据，每行一个数字n

【输出】

对于每组数据输出Stan赢还是Oille赢

详见数据

program poj2505;
var
  o:int64;
  n:double;
begin
  while not seekeof do
    begin
      read(n);
      o:=1;
      while n>1 do
        begin
          if o=1 then n:=n/9
                 else n:=n/2;
          o:=o xor 1;
        end;
      if o=1  then writeln('Ollie wins.')
             else writeln('Stan wins.');
    end;
end.