比赛代码 - COGS

比赛	防止浮躁的小练习v0.8	评测结果	AAAAAAAAAA
题目名称	金币	最终得分	100
用户昵称	Ten.X	运行时间	0.009 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2016-10-28 08:39:00

显示代码纯文本

var sum,n,i,j:longint;a:array[1..1000]of longint;
begin
assign(input,'2015coin.in');
assign(output,'2015coin.out');
reset(input);
rewrite(output);
for i:=1 to 1000 do
a[i]:=(1+i)*i div 2;
read(n);
sum:=0;
for i:=1 to 1000 do
if a[i]>n then begin j:=i-1;break;end;
for i:=1 to j do
sum:=sum+i*i;
sum:=sum+(n-a[j])*(j+1);
write(sum);
close(input);
close(output);
end.