请问如何写一个fortran程序计算1到1000000里面总共有几个素数?

1个回答

  • IMPLICIt NONELOGICAL YINTEGER::N=0,I,J,KDO I=2,1000000CALL PRIME(I,Y)IF(Y) N=N+1ENDDOWRITE(*,*) '素数个数为：',NCONTAiNSSUBROUTINE PRIME(I,Y)!判断素数的程序省略...END SUNBROUTINEEND

相关问题

栏目推荐： help的过去式 电荷守恒方程化学 玩具狗 作文 实验室制氨气 你多久到翻译 potato的复数 小心车英语翻译 大学每年学费 春风送暖入屠苏 函数的左右极限是 三次函数的二次导数 和氢氧化钠发生水解 大学可以学什么 对数函数底的定义域 更严重的英语翻译 六大营养的物质 四年级的作文实验 听不清的英语翻译 你别问这是为什么 国债收益多少

频道推荐： 二元一次方程怎么交 英语作文公告 聪明的用英语怎么说 描写风景的好句 硝酸铜溶液是盐溶液 泛爱众而亲仁 忌惮是什么意思 溶液中溶质增大 英语阅读的回答 硫酸铜溶液中通入 函数知道x和 乖张什么意思 小学作文 爱 clothes的意思 白居易的诗句 导函数和函数定义域 二氧化铝和酸反应 碳酸二氧化碳原理 声音的利用说法正确 科学的物质溶解度

全站推荐： 刖危 生赖 盲孩子 直径英语翻译 争知 罪垢 鹅英语怎么说 当幸福来敲门观后感 没老没小 坏人 are的肯定句回答 慧听 雾聚 clean什么意思 盐的物质类别 爱物儿 高中化学方程式钠 卿士寮 轻卒锐兵 学无止境的名言