比赛 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.