1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪

1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 268  Solved: 223
[Submit][Status]

Description

农夫约翰已经从他的牧场中取得了数不清块数的正方形草皮，草皮的边长总是整数（有时农夫约翰割草皮的刀法不合适，甚至切出了边长为0的正方形草皮），他已经把草皮放在了一个奶牛贝茜已经知道的地方。 贝茜总是希望把美味的草皮放到她的秘密庄园里，她决定从这些草皮中取出恰好4块搬到她的秘密庄园中，然后把它们分成1×1的小块，组成一个面积为N(1<=N<=10,000)个单位面积的部分。 贝茜对选出这样四块草皮的方法数很感兴趣，如果她得到了一个4个单位面积的部分，那么她可以有5中不同的方法选4块草皮：(1,1,1,1),(2,0,0,0),(0,2,0,0),(0,0,0,2).顺序是有效的：(4,3,2,1)和(1,2,3,4)是不同的方法。

Input

第一行：一个单独的整数N。

Output

单独的一行包含一个整数，表示贝茜选四块草皮的方案数。

Sample Input

4

Sample Output

5

HINT

 

Source

Silver

题解：呵呵呵呵，一道水水的DP（phile：这次没逗比？ HansBug：么么哒）。。。不多说啥了，转移方程很简单，代码也很清楚。。。

 var
    i,j,k,l,m,n:longint;
    a:array[..,..] of longint;
 begin
      readln(n);
      fillchar(a,sizeof(a),);
      for i:= to trunc(sqrt(n)) do
          a[,i*i]:=;
      for i:= to  do
          for j:= to n do
              for k:= to trunc(sqrt(j)) do
                  a[i,j]:=a[i,j]+a[i-,j-k*k];
      writeln(a[,n]);

 end.