set talk off a=0 b=0 x=0 y=0 input "请输入入N的值：" to n for i=1 to n if i%2=0 a=a+1 x=x+i else b=b+1 y=y+1 endif endfor ?"1到"+alltrim(str(n))+"之间共有"+alltrim(str(a))+"个偶数；" ?"偶数之和为："+alltrim(str(x)) ?"1到"+alltrim(str(n))+"之间共有"+alltrim(str(b))+"个奇数；" ?"奇数之和为："+alltrim(str(y)) set talk on return
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024