比赛 NOIP_3 评测结果 WWWWWWWWWA
题目名称 填数 最终得分 10
用户昵称 WaterFire 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-12 22:12:51
显示代码纯文本
program waterfire;
const
fin='tianshu.in';
fout='tianshu.out';
var
n,i,j,p:longint;
f,g:text;
begin
assign(f,fin);reset(f);
assign(g,fout);rewrite(g);
read(f,n);
if n=1 then write(g,1);

  if n=2 then
  begin
    writeln(g,1,' ',2);
    writeln(g,4,' ',3);
  end;
  if n=3 then
  begin
    writeln(g,1,' ',2,' ',11,' ',12);
    writeln(g,4,' ',9,' ',8,' ',5);
    writeln(g,7,' ',10,' ',3,' ',14);
    writeln(g,6,' ',13,' ',16,' ',15);
  end;
  if (n<>1) and (n<>2) and (n<>4) then
  write(g,'NO');
  close(f);
  close(g);
  end.