记录编号 7904 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarzhai 是否通过 通过
代码语言 Pascal 运行时间 0.031 s
提交时间 2008-11-12 14:05:01 内存使用 0.11 MiB
显示代码纯文本
program coins;
  var
    f1,f2:text;
    k:integer;
    n:longint;
    procedure ini;
      begin
        assign(f1,'coins.in');reset(f1);
        assign(f2,'coins.out');rewrite(f2);
        readln(f1,k);
      end;
    procedure main;
      var
        i:integer;
      begin
        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;
  begin
    ini;
    main;
  end.