比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	EEEEEEEEEE
题目名称	工作分配	最终得分	0
用户昵称	书剑飘零	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 11:20:32

显示代码纯文本

program tz;
type score=array[1..10000] of integer;
var f1,f2:text;i,n: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')else writeln(f2,'Bob');
  end;
  close(f1);
  close(f2);
end.