| 比赛 | NOIP2008集训模拟3 | 评测结果 | WWWWWWWWWW |
|---|---|---|---|
| 题目名称 | 硬币游戏 | 最终得分 | 0 |
| 用户昵称 | SMXX | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2008-11-12 11:15:10 | ||
program df;
var
f1,f2:text;
n,a,i:longint;
begin
assign(f1,'coins.in');
assign(f2,'coins.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:= 1to n do begin readln(f1,a);
if a<3 then writeln(f2,'Alice')
else begin
if a mod 3 =0 then writeln(f2,'Bob');
if a mod 3=1 then writeln(f2,'Alice');
if a mod 3=2 then writeln(f2,'Alice');
end;
end;
close(f1);
close(f2);
end.