Question

pascal编程求1+2+3+..+n的值求1+2+3+..+n的值 输入 一个整数n 输出 一个整数，表示1~n这n个数的总和

Answer 1

解释一下。
1+2+3+… …+n的和可以看成是一个上底是1下底是n的梯形的面积。
| 1
| | 2
| | | 3
| | | | 4
… … … …
所以1+2+3+… …+n=n*（1+n）/2.
1)
program sum1;
var b,i:longint;
begin
readln(n); b:=0;
for i:=1 to n do
b:=b+i;
writeln(b);
end.
2)
program sum2;
var a:longint;
begin
readln(a);
writeln(a*(a+1) div 2);
end.

Answer 2

program sumn;
var n:longint;
begin
readln(n);
n:=n*(n-1) div 2;
writeln(n);
end.

追问

是总和

追答

这就是总和。
这不就是套公式吗

Answer 3

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

Answer 4

var n,i:intger;s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.