Turbo Pascal 编程s=1+3+5+...+99

var i,s:integer;
begin
for i:=1 to 99 do
if i mod 2=1 then s:=s+i;
write(s);
end.

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

很简单！！

program p1;
var s,x1:integer;
begin
s:=0;
for x1:=1 to 100 do
if x1 mod 2=1 then s:=s+x1;
end.

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

好简单啊
pascal就是不如C for循环无法控制步长

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