There are
none Why?lord@rabbit-3 ~ % i143
total cnt = 0
lord@rabbit-3 ~ more i143.f
program i134 implicit none
integer cnt,i,k,kk,a,dum,dum1,d(6),maxd,mind
cnt=0
do 1 i=1,6993
a=143*i
dum=a
mind=10
maxd=-1
do k=1,6
dum1=(dum/10)*10
d(k)=dum-dum1
if(d(k).lt.mind)mind=d(k)
if(d(k).gt.maxd)maxd=d(K)
dum=dum/10
if(k.gt.1)then
do kk=1,k-1
if(d(kk).eq.d(k))go to 1
enddo
endif
enddo
if((maxd-mind).eq.5)cnt=cnt+1
1 enddo
print*,' total cnt = ',cnt
end
Edited on July 6, 2020, 9:30 am