pascal 100以内奇数求和
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 06:03:20
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.
收录互联网各类作业题目,免费共享学生作业习题
飞天作业帮手机作业共收录了 千万级 学生作业题目
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 06:03:20
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.