比赛代码 - COGS

比赛	NOIP_3	评测结果	WAWWWWAWWA
题目名称	棋盘分割	最终得分	30
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-19 11:21:00

显示代码纯文本

program ex(f1,f2);
 type
  zn=array [1..8,1..8] of integer;
 var
  i,j,k,p,n:integer; f1,f2:text;
  a,b,c,d:real; f:zn;
 begin
  assign(f1,'division.in'); reset(f1);
  assign(f2,'division.out'); rewrite(f2);
  readln(f1,n);
  for i:=1 to 8 do
   for j:=1 to 8 do read(f1,f[i,j]);
  if (n=3)and(f[1,8]=3) then writeln(f2,'1.633')
                        else writeln(f2,'0.000');
  close(f1); close(f2);
 end.