| 记录编号 | 5358 | 评测结果 | AAAAAAAAAA | ||
|---|---|---|---|---|---|
| 题目名称 | [USACO Oct07] 完全平方数 | 最终得分 | 100 | ||
| 用户昵称 |  Pirute |
是否通过 | 通过 | ||
| 代码语言 | Pascal | 运行时间 | 0.022 s | ||
| 提交时间 | 2008-10-26 11:13:46 | 内存使用 | 0.11 MiB | ||
var a,b:1..500;n:1..1000;s:integer;f1,f2:text;begin assign(f1,'squares.in');assign(f2,'squares.out');reset(f1);rewrite(f2);read(f1,n);s:=0; for a:=1 to 500 do for b:=1 to 500 do begin if (a*a=b*b+n) and (a>b) then s:=s+1;end;write(f2,s);close(f1);close(f2);end.