Разбиение числа на отдельные цифры

[Trilliput]

Нужен алгоритм разбиения числа на цифры, например 12345: разбить на 1, 2, 3, 4, 5.
Ну или просто подскажите команду для целочисленого диления.

[dimanche13]

переводишь число в строку и вперед!

Local a:Int = 12345

Local s:String

s = String(a)

Print Chr(s[0])
Print Chr(s[1])
Print Chr(s[2])
Print Chr(s[3])
Print Chr(s[4])

[IGR]

а лучше
for i=0 to leght(your_string)
print chr
next

[Tadeus]

Я помню недавно решал эту задачку чистой математикой

num=123456
i6=num Mod 10
i5=((num-i6)/10) Mod 10
i4=((num-i6-i5*10)/100) Mod 10
i3=((num-i6-i5*10-i4*100)/1000) Mod 10
i2=((num-i6-i5*10-i4*100-i3*1000)/10000) Mod 10
i1=((num-i6-i5*10-i4*100-i3*1000-i2*10000)/100000) Mod 10
Print i6
Print i5
Print i4
Print i3
Print i2
Print i1
WaitKey

Разбирает шестизначное число. По аналогии можно сделать функцию

Также для увеличения скорости юзай смещения

[Trilliput]

Сообщение от dimanche13

переводишь число в строку и вперед!