比赛代码 - COGS

比赛	HAOI2009 模拟试题2	评测结果	WWWWWWWWWW
题目名称	棋盘上的问题	最终得分	0
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-04-22 10:58:59

显示代码纯文本

program ex(f1,f2);
 var
  i,j,k,p,m,n:longint;
  f1,f2:text;
 begin
  assign(f1,'board.in'); reset(f1);
  assign(f2,'board.out'); rewrite(f2);
  readln(f1,n,m);
  if m=n*n then writeln(f2,n);
  if m=n  then writeln(f2,0);
  close(f1);
  close(f2);
 end.