比赛代码 - COGS

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

显示代码纯文本

Program coins;
Const
        Inf     = 'coins.in';
        Ouf     = 'coins.out';
Var
        n,k,i   : longint;

BEGIN
        Assign(input,inf); reseT(input);
        Assign(output,ouf); rewrite(output);
           readln(k);
           for i:=1 to k do begin
               readln(n);
               if n>2 then writeln('Bob')
                      else writeln('Alice');
           end;
        close(input); close(output);
END.