26 lines
440 B
Text
26 lines
440 B
Text
c = 0
|
|
i = 1
|
|
while c < 10000001
|
|
if eqrf(i) then
|
|
c += 1
|
|
if c <= 200 then print i;" ";
|
|
if c = 10000000 then print : print i
|
|
end if
|
|
i += 1
|
|
end while
|
|
end
|
|
|
|
function eqrf(n)
|
|
sn$ = string(n)
|
|
q = 0
|
|
for i = 2 to length(sn$)
|
|
if asc(mid(sn$,i,1)) > asc(mid(sn$,i-1,1)) then
|
|
q += 1
|
|
else
|
|
if asc(mid(sn$,i,1)) < asc(mid(sn$,i-1,1)) then
|
|
q -= 1
|
|
end if
|
|
end if
|
|
next i
|
|
if q = 0 then return true else return false
|
|
end function
|