Задать последовательность чисел

[trent100]

У меня есть числовой ряд : 0123456789

мне нужно сформировать из них 10значное число по алгоритму-
первое число n=0 следующее число по счету 3ее , тоесть n=2 (далее идем по кругу умножая шаг на 3 )
следующее число 9ое, тоесть n=8
следюющее число 27ое, тоесть n=6
следюющее число 81ое, тоесть n=0
и так далее
n=02860......

Получаем в переменную $number 10значное число..которое вручную очень муторно считать.

Подскажите плз

 

[ra4o]

Можно так:

Local $Array[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

Local $Factor = 3
Local $number

For $i = 0 To 9
    $n = Mod($Factor ^ $i, 10) - 1
    If $n >= 0 Then
        $number &= $Array[$n]
    Else
        $number &= $Array[9]
    EndIf
Next

MsgBox(0, '', $number)

Так числа всё время будут повторяться 028602860286.....
Для данных начальных данных IF не обязательно , но на всякий случай пусть будет, если что то изменится в условии)))

 

[trent100]

Можно так:

Local $Array[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

Local $Factor = 3
Local $number

For $i = 0 To 9
    $n = Mod($Factor ^ $i, 10) - 1
    If $n >= 0 Then
        $number &= $Array[$n]
    Else
        $number &= $Array[9]
    EndIf
Next

MsgBox(0, '', $number)

Так числа всё время будут повторяться 028602860286.....
Для данных начальных данных IF не обязательно , но на всякий случай пусть будет, если что то изменится в условии)))

То что нужно! Спасибо
а Local $Factor = 3 я могу изменить так как мне нужно) и если что- его можно в цикл for засунуть, что бы делать разные интерации.

 

[ra4o]

Local $Factor = 3 я могу изменить так как мне нужно)

Да , с этой целью так и было сделано )