Numero....capovolto?

[al_berto]

Buon giorno
Qual è il più piccolo numero che diviso per lo stesso numero, ma letto da destra a sinistra, dà resto zero e quoziente >1?
p.s. Si capisce? Ho dovuto stare attento a non usare: inverso,invertito,opposto,contrario, non si sa mai!

[al_berto]

Io in linguaggio Just Basic ho fatto cos':

for num= 1000 to 9999
numS=strS(num)
munS=midS(numS,4,1)+midS(numS,3,1)+midS(numS,2,1)+midS(numS,1,1)
mun=val(munS)
if mun mod num =0 and mun/num <>1 then print mun
next num
rem attenzione S= simbolo del dollaro

[Umby2]

"al_berto":Io in linguaggio Just Basic ho fatto cos':

for num= 1000 to 9999
numS=strS(num)
munS=midS(numS,4,1)+midS(numS,3,1)+midS(numS,2,1)+midS(numS,1,1)
mun=val(munS)
if mun mod num =0 and mun/num <>1 then print mun
next num
rem attenzione S= simbolo del dollaro

piu o meno lo stesso mio codice, tranne per il fatto che ho controllato che non solo la prima cifra, ma anche l'ultima sia diversa da zero.