记录编号 7895 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarname:弓虽 是否通过 通过
代码语言 Pascal 运行时间 0.066 s
提交时间 2008-11-12 11:44:27 内存使用 3.92 MiB
显示代码纯文本
program coins(input,output);
 var
  i,j,k:longint;
  n:array[1..1000010] of longint;
begin
assign(input,'coins.in');
assign(output,'coins.out');
reset(input);
rewrite(output);
 readln(k) ;
 for i:=1 to k do
  readln(n[i]);

 for i:=1 to k do
  begin
   if (n[i]<3) and (n[i]>=1) then writeln('Alice')
   else writeln('Bob')
  end;
   close(input);
 close(output);
end.