比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	AAAAAAAAAA
题目名称	硬币游戏	最终得分	100
用户昵称	卐祭司卐	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 10:25:06

显示代码纯文本

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.