比赛代码 - COGS

比赛	NOIP2008集训模拟1	评测结果	WWWWWAWWWW
题目名称	地精贸易	最终得分	10
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-10 11:10:24

显示代码纯文本

program ex(f1,f2);
 type
  zn=array [1..100] of longint;
  ka=array [1..100] of real;
  fa=array [1..100] of boolean;
 var
  a,b,c,d:zn; w:ka; f1,f2:text; now:real;
  i,j,k,m,n,l,p:longint; flag:fa;
 begin
  assign(f1,'goblin.in'); reset(f1);
  assign(f2,'goblin.out'); rewrite(f2);
  readln(f1,n,m);
  writeln(f2,n);
  for i:=1 to m do writeln(f2,'Buy 0');
  close(f1);
  close(f2);
 end.