比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	WWWWWWWWWA
题目名称	硬币游戏	最终得分	10
用户昵称	E.M.B.E.R	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 10:08:54

显示代码纯文本

program EmberAsh;
var
n,i,a,x: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,a);
  if (a=4)or(a=5) then
    writeln(fout,'Bob')
      else
      begin
      x:=a mod 3;
      if x=0 then
        writeln(fout,'Bob')
        else
        writeln(fout,'Alice');
      end;
  end;
close(fin);close(fout);
END.