记录编号 7958 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatar卐祭司卐 是否通过 通过
代码语言 Pascal 运行时间 0.031 s
提交时间 2008-11-12 16:03:26 内存使用 0.11 MiB
显示代码纯文本
program mengyalan;
var
  i,n,k:longint;
  fi,fo:text;
begin
  assign(fi,'coins.in');
  assign(fo,'coins.out');
  reset(fi);
  rewrite(fo);
  read(fi,k);
  for i:=1 to k do
  begin
    readln(fi,n);
    if n>=3 then writeln(fo,'Bob') else writeln(fo,'Alice');
  end;
  close(fi);
  close(fo);
end.