记录编号 7977 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarlc 是否通过 通过
代码语言 Pascal 运行时间 0.032 s
提交时间 2008-11-12 16:32:26 内存使用 0.11 MiB
显示代码纯文本
var 
    k,i:integer;
    sum:longint;
begin
 assign(input,'coins.in');
 assign(output,'coins.out');
 reset(input); rewrite(output);
 readln(k);
   for i:=1 to k do
     begin
     readln(sum);
     if sum>2 then writeln('Bob')
              else writeln('Alice');
     end;
 close(input); close(output);
end.