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