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