热烈庆祝第100个人AC此题！

注意第三组数据字符串中有空格！！！！！！！！！！！我！！！！！！！！！

另外数组开大一点没有坏处，我开到了80000，AC了！

此题我faint!~~~~!!!!!!!!!!

额 考试忘了加ansistring 又把我调试时候的东西输出了——0分！

加了ansistring+删除两行东西=AC

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

把他看成装箱问题吧`。一模又一样``

然后话说，要开ANSISTRING`\

这个非常郁闷到我`

F=MIN{F+1}；

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

终于AC 还是语文不好= =

暴搜都过..

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...

　├ Hint: 长度为69　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案错误...

　├ Hint: 长度为1500　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案错误...

　├ Hint: 长度为15500　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...

　├ Hint: 长度为35500　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案正确... 462ms

why

dfs直接0ms过...

还有不能直接readln一个ansistring。。。

搜

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第一次：图简单，同时为了测试数据，只深搜从大到小第一个，竟然60分……

然后发现数据最长为35500位。

第二次：交上以后发现数据最长变成了65536位……我囧！

第三次：把数组开到了80000位，终于对了……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

a:ansistring;

b:packed array[1..80000] of char;

i,j,k,len,q,ans,lenxx:longint;

p:array[1..10000]of longint;

procedure find(ii,lens:longint);

var i1,k1,j1,xx,xo,yy,zz,sum,lenss:longint;

begin

for i1:=ii downto 1 do

begin

lenss:=lens-i1*i1;

if (lenss>0)and(k+1

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：56ms

竟然是无限背包

program code;

var s:ansistring;

i,j,l,k,n:longint;

a:array[1..300] of longint;

procedure find(k,p:longint);

begin

a[p]:=trunc(sqrt(k));

if a[p]*a[p]

办证 138546XXXXX

我根据拉格朗日定理做的，为什么只对了前4个？？？

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

dfs 随便过．．．．

procedure get(x:longint);

var i,j,k,l,t1:longint;

begin

for i:=256 downto 0 do

if i*i=x then

begin

deal(i,j,k,l);

exit;

end;

for i:=256 downto 0 do

begin

if i*i>x then continue else

for j:=trunc(sqrt(x-i*i))+1 downto 0 do

if i*i+j*j=x then

begin

deal(i,j,k,l);

exit;

end;

end;

for i:=256 downto 0 do

begin

if i*i>x then continue else

for j:=trunc(sqrt(x-i*i))+1 downto 0 do

if i*i+j*j>x then continue else

for k:=trunc(sqrt(x-i*i-j*j))+1 downto 0 do

if i*i+j*j+k*k=x then

begin

deal(i,j,k,l);

exit;

end;

end;

for i:=256 downto 0 do

begin

if i*i>x then continue else

for j:=trunc(sqrt(x-i*i))+1 downto 0 do

if i*i+j*j>x then continue else

for k:=trunc(sqrt(x-i*i-j*j))+1 downto 0 do

if i*i+j*j+k*k>x then continue else

for l:=trunc(sqrt(x-i*i-j*j-k*k))+1 downto 0 do

if i*i+j*j+k*k+l*l=x then

begin

deal(i,j,k,l);

exit;

end;

end;

end;

枚举哦···

好像是某定理····

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

不是无限背包吗？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

动归+交表+ansistring+writeln(s)

我靠又是密码

大家保持

MS楼下那群人一堆废话

应该是恰好背包

我靠！>=写成了>结果改了4个小时！

如果有多解,则输出第一个矩阵大的,如果第一个一样则输出第二个,以此类推.

什么意思？

dfs