pascal:从1加到100,怎做?

我很垃圾,刚学,PLEASE 引路,OK? 1+2+3+4+5+...+100=?

2026年09月02日 01:36

有4个网友回答

网友（1）：

这个用数列做很方便
等差数列求和,公差=1
S100=100*(1+100)/2=5050
答案就是5050

或者

(1+100)*50=5050

网友（2）：

program aaa;
var
x,y:integer;
begin for x=1 to 100 do
y=x+y
writeln(y);
end.
可能不对，我是新手

网友（3）：

program 1
var i,j:integer;
begin
j:=0;
for i:=1 to 100 do j:=j+i;
writeln('1+2+3+....+100=',j);
end.

网友（4）：

program p4_22(input,output)
var
i,s:integer;
begin
S:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s)
end.