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

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

 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