记录编号 7930 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatar书剑飘零 是否通过 通过
代码语言 Pascal 运行时间 0.045 s
提交时间 2008-11-12 15:19:42 内存使用 76.40 MiB
显示代码纯文本
program tz;
type score=array[1..10000000] of int64;
var f1,f2:text;n:int64;i:longint;a:score;
begin
  assign(f1,'coins.in');
  assign(f2,'coins.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
    readln(f1,a[i]);
  for i:=1 to n do
  begin
  if ((a[i])<=2) then writeln(f2,'Alice');
  if ((a[i])>2) then writeln(f2,'Bob');
  end;
  close(f1);
  close(f2);
end.