pascal 100以内奇数求和

来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/14 06:35:46
pascal100以内奇数求和pascal100以内奇数求和pascal100以内奇数求和vars,i:integer;begins:=0;fori:=1to100doifimod2=1thens:=

pascal 100以内奇数求和
pascal 100以内奇数求和

pascal 100以内奇数求和
var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 2=1 then s:=s+i;
writeln(s);
end.