プログラム
c234567890123456789
implicit none
integer a,b,c,n
n=0
do a=1,9
do b=1,9
do c=1,9
if((a*10+b)+(b*10+a)==c*100+b*10+c)then
n=n+1
write(6,*)'条件を満たした三桁の数は'
write(6,*)a,b,c
end if
end do
end do
end do
write(6,*)'条件を満たした解の数は'
write(6,*)n
end
答え
xs3% a.out
条件を満たした三桁の数は
9 2 1
条件を満たした解の数は
1
xs3%