> 知识 >
pascal 100以内奇数求和
人气:144 ℃ 时间:2025-09-09 08:52:24
解答

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.

推荐
猜你喜欢
© 2025 79432.Com All Rights Reserved.
电脑版|手机版