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
