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

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

2024-11-22 09:21:37

推荐回答（2个）

回答1：

Do

if ( mod( , 3) == 2) and ... and
write(*,*)
end if
end do

此处 Do 用于循环，mod 用于求余数，and 是逻辑与。

剩下的代码，请你自己完成。如有困难，请告知具体的困难，我不希望每个求助者都依赖回答者给出完整的代码，我更希望为你提供思路。

回答2：

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

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