已修改评论

用一个程序写另一个，论打表的重要性。
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

@萌萌哒姐姐

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

复赛留念

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

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