| 比赛 | NOIP2008集训模拟3 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 硬币游戏 | 最终得分 | 100 |
| 用户昵称 | 卐祭司卐 | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2008-11-12 10:25:06 | ||
program mengyalan;
var
i,n,k:longint;
fi,fo:text;
begin
assign(fi,'coins.in');
assign(fo,'coins.out');
reset(fi);
rewrite(fo);
read(fi,k);
for i:=1 to k do
begin
readln(fi,n);
if n>=3 then writeln(fo,'Bob') else writeln(fo,'Alice');
end;
close(fi);
close(fo);
end.