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