/ Vijos / 讨论 / 金币 /

这题我比赛时TM过程写错了~~啊啊啊啊啊啊啊啊啊啊

var k,i,j:longint;
s:int64;
begin
readln(k);i:=0;s:=0;
repeat
i:=i+1;
for j:=1 to i do begin
s:=s+i;
k:=k-1;
if k=0 then begin writeln(s);halt;end;
end;
until k=0;
writeln(s);
end.

10 条评论

  • 1

信息

ID
1974
难度
3
分类
模拟 点击显示
标签
递交数
2938
已通过
1410
通过率
48%
被复制
31
上传者