第一次瞎写就一次性骗90分！对不起这一星半的难度呀，这是骗分中的经典题。看了下没过的测试数据，原来是被3这个数字卡了。于是又在if中加了一条。。

额，满足什么条件？
哦，上网搜了一下原来是这样：1. x,y,z都是整数，x<y<z，y-x=z-y
2. colorx=colorz；

加了这个了内存限制，这题早就超于半星了，不会呀。。

回复 @mikumikumi :
deque当然慢……

速度真慢。。。
论常数优化

用一个程序写另一个，论打表的重要性。
var n,k,k1,i:longint;
begin
readln(n);
writeln('if( k>0 )and (k<=1) then writeln(1);');
k:=1;
for i:=2 to n do
begin
k1:=round((i*(i+1))/2);
writeln('if (k>',k,')and (k<=',k1,')then writeln(',(((i-1)*(i)*(2*(i-1)+1)) div 6),'+',i,'*(k-',k,'));');
k:=k1;
end;
readln;
end.
输入 141

一道动态规划嘛。。。算法是O(k*m*n)的，不算复杂，记得用滚动数组，否则内存会爆掉。。。

@萌萌哒姐姐

回复 @南风喠:
呦~咱也来留念复赛....只是我明明只提交了一次....

复赛留念

我的代码仅30行，但无奈最后的一个数据超时。。。。

复赛留念，提交了一下居然过了但愿赛果顺利！

...发现有神犇 900 MB内存A了，迫不及待要看一看怎么写，奈何自己这写到了90分，于是去copy了代码。。。

回复 @nsnsjsjjs :
[size=66]我给你6个6！[/size]

妄图用break跳出两层循环……还是水平不够啊

偷偷提交一波，没脸见人了。。。算了我还是不管了吧

唯一一个上榜的Pascal飘过……

一一对应。。。