24小时热门版块排行榜    

查看: 1153  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

东亚晴空

新虫 (初入文坛)

[求助] 谢谢打架了。帮我写个小程序吧。急求啊。。。

利用fortran编写程序求出能整除n(n>2)且不是偶数的1000以内的各整数
回复此楼
睡在哪里,都是睡在夜里。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长


jjdg: 金币+1, 辛苦了 2013-01-05 23:38:59
用mathematica实现了,呵呵
jieGuo = {};
a = Input["输入数字大于2的整数:"];
For[i = 3, i < 1000,
If[Mod[i, a] == 0 && Mod[i, 2] != 0, jieGuo = Append[jieGuo, i],
  jieGuo]; i++]
jieGuo
Export["D:\\data.xls", jieGuo]
8楼2013-01-04 21:15:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 东亚晴空 的主题更新
信息提示
请填处理意见