记录编号 7915 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarbly1991 是否通过 通过
代码语言 Pascal 运行时间 0.039 s
提交时间 2008-11-12 15:02:59 内存使用 0.19 MiB
显示代码纯文本
program bly(input,output);
var
  data:array[1..10000] of int64;
  n:integer;
  i,j:integer;
  f1,f2:text;
begin
  assign(f1,'coins.in');
  reset(f1);
  readln(f1,n);
  for i:=1 to n do readln(f1,data[i]);
  close(f1);

  assign(f2,'coins.out');
  rewrite(f2);
  for i:=1 to n do begin
    if data[i]<=2 then writeln(f2,'Alice');
    if data[i]>2 then writeln(f2,'Bob');
  end;
  close(f2);
end.