发布网友 发布时间:2022-05-30 00:44
我来回答
共1个回答
热心网友 时间:2024-08-20 02:24
以fortran代码示例(其它语言在算法表达上相同的,供参考):
integer m,i,k
k=0
read(*,*) m
do i=1,1000
if(mod(i,m)/=0) cycle
k=k+1
write(*,'(1x,a,i3.3,a,i4)') 'No.',k,':',i
end do
end
下图为代码和运行结果(输入为89)。