| 比赛 | NOIP2008集训模拟3 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 硬币游戏 | 最终得分 | 100 |
| 用户昵称 | chengyang | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2008-11-12 11:26:13 | ||
program coins;
var
a:array[1..10000]of longint;
i,n:longint;
begin
assign(input,'coins.in');
assign(output,'coins.out');
reset(input); rewrite(output);
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>2 then writeln('Bob')
else writeln('Alice');
end;
close(input); close(output);
End.