记录编号 7934 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarzxc111 是否通过 通过
代码语言 Pascal 运行时间 0.031 s
提交时间 2008-11-12 15:29:54 内存使用 0.11 MiB
显示代码纯文本
program ooo;
var
i,j,k,n:longint;
t,t1:text;
begin
assign(t,'coins.in');
reset(t);
assign(t1,'coins.out');
rewrite(t1);
readln(t,n);
for i:=1 to n do
begin
readln(t,j);
if j>2 then writeln(t1,'Bob') else writeln(t1,'Alice');
end;
close(t);
close(t1);
end.