求1+（1+2）+（1+2+3）…+（1+2+3+n）
pascal吧
全部回复
仅看楼主
level 10
forget天泽一号 楼主
各位大神，帮帮我
2014年01月10日 12点01分 1
level 9
lsdzyl
双重循环并在内循环做累加
2014年01月10日 15点01分 2
level 7
wosfenghappy
学过函数吗？
2014年01月11日 01点01分 3
level 12
wfwhl12
Orz
2014年01月11日 02点01分 4
level 14
薛定谔的喵呜
这个不是很简单么
2014年01月11日 02点01分 5
level 7
wosfenghappy
program ex;
var
n,i,s,ss:integer;
begin
writeln('input n:');
readln(n);
s:=0;
ss:=0;
for i:=1 to n do
begin
s:=s+i;
ss:=ss+s;
end;
writeln(ss);
end.
2014年01月11日 04点01分 6
level 6
豪狂辽紫丛仙35
var
n,i:longint;
t:int64;
begin
readln(n);
for i:=1 to n do t:=t+(n-i+1)*i;
writeln(t);
end.
2014年01月11日 04点01分 7
level 10
forget天泽一号 楼主
纳尼！？居然这么简单！[拍砖]
2014年01月11日 11点01分 8
level 12
Pierrot_Wang
比较快的做法：
for i:=1 to n do s:=s+i*(n+1-i);
2014年01月11日 12点01分 9
level 12
fp4869
实在不行就嵌套
2014年01月11日 16点01分 10
level 1
墨眉🌀无锋
2014年02月14日 01点02分 11
level 11
abslime
另一种方法，时间复杂度O(1)，1.0*10^8数据没问题
var n,ans:int64;
begin
readln(n);
ans:=n*(n+1)*(2*n+4)div 12;
writeln(ans);
end.
2014年02月21日 13点02分 12
level 9
ax_pokl
sum_(n=0)^m 1/2 n (1+n) = 1/6 m (m+1) (m+2)
2014年02月22日 02点02分 13
眯啪✨
大神，关于你的socket和网盘中的marco有些疑问，能否加Q详谈
2014年02月22日 04点02分
1