记录编号 7993 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarrottenwood 是否通过 通过
代码语言 Pascal 运行时间 0.032 s
提交时间 2008-11-12 17:09:16 内存使用 1.10 MiB
显示代码纯文本
program coins;
type
shuzu=array[1..1000000] of boolean;
shuzu1=array[1..10000] of longint;
var
i,t,j,k,m,n:longint;
s:shuzu;
f:shuzu1;
begin
assign(input,'coins.in');reset(input);
assign(output,'coins.out');rewrite(output);
readln(n);
for i:=1 to n do
 begin
 readln(m);
 if m<=2 then writeln('Alice')
         else writeln('Bob');
         end;
  close(output);
  end.