الگوریتم مغلوب یک عدد

[SalmanAdl]

دوستان کمک کنند این الگوریتمو بنویسیم
الگوریتمی که با وارد کردن یک عدد(تعداد ارقام نا مشخص ) مغلوب آن را نمایش دهد
خیلی ممنون

[dbdbdb]

اگه با vb بخایی :
n = Val(Text1)
While (n <> 0)
k = n Mod 10
Print k;
n = n \ 10
Wend