fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数

来源：学生作业帮助网编辑：作业帮时间：2024/05/02 21:52:37

fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数
fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数

fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数
Do
if ( mod( , 3) == 2) and ... and
write(*,*)
end if
end do
此处 Do 用于循环,mod 用于求余数,and 是逻辑与.
剩下的代码,请你自己完成.如有困难,请告知具体的困难,我不希望每个求助者都依赖回答者给出完整的代码,我更希望为你提供思路.

program ex500
implicit none
integer :: n
do n=1,500
if(MOD(n,3)==2)then
if(MOD(n,5)==3.AND.MOD(n,7)==2)then
write(*,*) n
end if
end if
end d...

全部展开

program ex500
implicit none
integer :: n
do n=1,500
if(MOD(n,3)==2)then
if(MOD(n,5)==3.AND.MOD(n,7)==2)then
write(*,*) n
end if
end if
end do
stop
end

已运行无误，希望对你有所帮助，有什么不清楚的可以再问我，虽然我也不是很精通。

收起

fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数在1到500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数,并输出,编写程序实现之用Fortran语言 XNORM在fortran中是什么意思在1-500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数.用pascal fortran 中, FORTRAN语言中,FORMAT(1X,E8. 用java输出在1-500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数 Fortran Fortran 中函数IABS()是什么意思啊? Fortran中dimension(*)是什么意思? fortran中buffer是什么意思 fortran中equivalence是什么意思为什么fortran中alog和real(kind=8)不能同时使用利用VFP,1到500,利用函数找出能同时用3除余2,用7除余2的所有整数在1到500,利用函数找出能同时用3除余2,用7除余2的所有整数用VB语言编程,在1-10000中,找出同时能满足用3除余2,用5除余3,用7除余4的所有整数在1－n中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数的个数,如果没有请输出0.pascal fortran 中 read（1,*）（TOUT(I),I=1, fortran中设置随机数的问题天河兄,再次麻烦你了,想问问在fortran中设置一定区间的随机数,比如设置1~76之间的随机整数,应该调用什么函数?random_seed random_number?如何使用? 在1-100中怎么快速找出6的倍数,等等,最重要是能举一反三,触类旁通.