Question

1+2+3+……+100怎么用pascal表达（for循环）

输出值（5050）

Answer 1

var
i, c: Integer;
s: string;
begin
c := 0;
for i := 1 to 100 do
begin
c := c + i;
s := s + IntToStr(i);
end;
end;

c 为 1+..100之和
s为1+...100的字符串

追问

无法输出值（5050）。

Answer 2

program aa;
var sum,i:integer;
begin
for i:= 1 to 100 do
inc(sum,i);
write(i);
end.

追问

不能用

追答

额 手抽了打错了一个~
program aa;
var sum,i:integer;
begin
for i:= 1 to 100 do
inc(sum,i);
write(sum);
end.

Answer 3

program lyf;

var i,ans:longint;
begin
for i:=1 to 100 do
ans:=ans+i;
writeln(ans);
end.
ans初值本身就是0，无须赋~

Answer 4

var
a,b,i:integer;
begin
for i:=1 to 100 do
a:=a+i;
writeln(a);
end.

Answer 5

s:=0;
for i:=1 to 100 do s:=s+i;

追问

全部

追答

你是要输入这个字符串还是值？

追问

值（5050）