呵呵呵呵呵,很水的DP,同时能够朴素枚举出来,这数据弱的 是 吃了尸米吧.. var n,i,j,k,l,ans:longint; begin readln(n); to trunc(sqrt(n)) do to trunc(sqrt(n)) do to trunc(sqrt(n)) do to trunc(sqrt(n)) do if i*i+j*j+k*k+l*l=n then inc(ans); writeln(ans); end. 然而这是正确的DP. var n,i,j,k:longi…