Question

pascal编程while语句循环 s=1+(1+2)+(1+2+3)+……+(1+2+3+……n)，从键盘输入n，求s的值。

编写程序求，s=1+(1+2)+(1+2+3)+……+(1+2+3+……n)，从键盘输入n，求s的值。（用while语句完成）大师，谢了。

Answer 1

var
s,n,i,j:longint;
begin
read(n);
while i<n do begin
i:=i+1;
j:=j+i;
s:=s+j;
end;
write(s);
end.

Answer 2

PROGRAM ABC;
VAR S,N,I,J:LONGINT;
BEGIN
READLN(N);
I:=0;
S:=0;
WHILE I < N DO BEGIN
I :=I + 1;
J := 0;
WHILE J < I DO BEGIN
J := J + 1;
S := S + J;
END;
END;
WRITELN(S);
READLN;
END.

Answer 3

var s,n,i,t:longint;
begin
read(n);
for i:=1 to n do
begin
t:=t+i;
s:=s+t;
end;
write(s);
end.