Question

pascal题目答案

用for语句解下面的问题：
求s=1+(1+2)+（1+2+3）+.....+(1+2+3+...+n)
帮帮忙，高手快出来啊，基本思路知道了，但关键的循环体不知道怎么写，各位大哥大姐帮帮忙啊，小妹急用啊！

Answer 1

两层for循环就可以了啊。
program zl971013;
Var i,j,s,n:integer;
begin
s:=0;
read(n);
for i:=1 to n do
for j:=1 to i do
s:=s+j;
write(s);
endl.

Answer 2

program exam;
var i,j,s,n:integer;
begin
while not eof do
begin
readln(n);
s:=0;
for i:=1 to n do
for j:=1 to i do s:=s+j
writeln(s);
end;
end.

Answer 3

program exam;
var n,s:integer;
i,j:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
for j:=1 to i do
s:=s+j;
write(s);
readln
end.

Answer 4

var
i,j,n,ans:longint;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
inc(ans,j);
writeln(ans);
end.