比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	WWWWWWWWWW
题目名称	硬币游戏	最终得分	0
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 11:19:38

显示代码纯文本

program ex(f1,f2);
 type
  zn=array [1..10001] of longint;
  ka=array [1..10001] of boolean;
 var
  a:zn; f1,f2:text; i,j,k,m,p,n:longint;
  c:ka; s2,s1:string;
 begin
  assign(f1,'coins.in'); reset(f1);
  assign(f2,'coins.out'); rewrite(f2);
  writeln(f2,'Alice');
  writeln(f2,'Alice');
  writeln(f2,'Bob');
  close(f1);
  close(f2);
 end.