24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

东亚晴空

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1
帖子: 7
在线: 2.3小时
虫号: 1253162
注册: 2011-04-02
性别: GG
专业: 金融学

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

利用fortran编写程序求出能整除n(n>2)且不是偶数的1000以内的各整数

回复此楼

» 猜你喜欢

有时候真觉得大城市人没有县城人甚至个体户幸福已经有10人回复
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）已经有5人回复
有院领导为了换新车，用横向课题经费买了俩车已经有5人回复
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优已经有6人回复
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗已经有3人回复
面上项目申报已经有3人回复
酰胺脱乙酰基已经有9人回复
博士延得我，科研能力直往上蹿已经有7人回复
面上基金申报没有其他的参与者成吗已经有5人回复
遇见不省心的家人很难过已经有22人回复

睡在哪里，都是睡在夜里。

1楼 2013-01-04 14:19:27

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

应助: 5 (幼儿园)
金币: 571.5
红花: 3
帖子: 243
在线: 39.7小时
虫号: 2189750
注册: 2012-12-16
性别: MM
专业: 结构工程

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jjdg: 编辑内容 2013-01-05 23:38
jjdg: 金币+2, 辛苦了 2013-01-05 23:38:41
东亚晴空: 金币+4, ★★★★★最佳答案 2013-01-07 11:37:04

fortran65程序：

CODE:

     program modify

        dimension k(1000),m(1000)

        do i=1,1000

        k(i)=i

        enddo

        write(*,*)'please give a number(n大于2):'

        read(*,*)n

        j=1

         do i=n+1,1000

        if(mod(i,n).eq.0.and.mod(i,2).ne.0)then

        m(j)=k(i)

        write(*,*)j,m(j)

        j=j+1

        endif

        enddo

        stop

        end