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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/24 01:17:50
fortran在1至500中找出能同时满足用3除于2用5除余3用7除余2的所有整数
xSn@~=Bd"ETkgŤHFR{t) jhOBE!!` W@A*\wfogvIN!4:{,ZuԜ bDg7l`w

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


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

收起