比赛代码 - COGS

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

显示代码纯文本

program coins;
var k,n,i:longint;
begin
  assign(input,'coins.in');
  assign(output,'coins.out');
  reset(input);
  rewrite(output);
    readln(k);
      for i:=1 to k do
        begin
          readln(n);
          if n<=2 then
          writeln('Alice')
          else
          writeln('Bob');
        end;
  close(input);
  close(output);
end.