Fortran基础练习01----循环1

Posted 2021-01-19 mathpro

1.找出并输出100-150之间和400-450之间能被9整除的数

program main

    implicit none
    integer a,b
    
    do a=100,150
        if (mod(a,9)==0) print *,a
    enddo
    
    b=400
    do while (b<=450)
        if (mod(b,9)==0) print *,b
        b=b+1
    enddo
      
    pause
    
end

 

2.回文数是指正读和反读都一样的数。如：232，编程求100到999之间的回文数

 1 program main
 2 
 3     implicit none
 4     integer a,gw,sw,bw ! 分别存储各位、十位、百位
 5     
 6     do a=100,999
 7         gw=mod(a,10)
 8         bw=a/100
 9         
10         if (gw==bw) print *,a
11     enddo
12       
13     pause
14     
15 end