在pascal语言中运算:1+3+5+……+97+99 1+2+……+100

第一个
v:=1;
d:=0;
repeat
d:=d+v;
v:=v+2;
until v=99;
第二个
c:=0;
for i:=1 to 100 do
c:=c+i;
xixi

v:=1;
d:=0;
repeat
d:=d+v;
v:=v+2;
until v=99;

第一个
v:=1;
d:=0;
repeat
d:=d+v;
v:=v+2;
until v=99;
第二个
c:=0;
for i:=1 to 100 do
c:=c+i;

var
i,s:integer;
begin
i:=1;
s:=1;
repeat
i:=i+2;
s:=s+i;
until i=99;
writeln(s);
end.

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

1.var
s，i：integer；
begin
for i：=1 to 99 do
if i mod 2=1 then s：=s+i；
writeln（s）；
end。
2.var
s，i：integer；
begin
for i：=1 to 100 do
s：=s+i；
writeln（s）；
end。