记录编号 8055 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarchengyang 是否通过 通过
代码语言 Pascal 运行时间 0.032 s
提交时间 2008-11-12 19:23:56 内存使用 0.15 MiB
显示代码纯文本
program coins;
var
  a:array[1..10000]of longint;
  i,n:longint;
begin
  assign(input,'coins.in');
  assign(output,'coins.out');
  reset(input); rewrite(output);
  readln(n);
  for i:=1 to n do begin
    readln(a[i]);
    if a[i]>2 then writeln('Bob')
    else writeln('Alice');
  end;
  close(input); close(output);
End.