24 lines
506 B
Text
24 lines
506 B
Text
dim X$(2)
|
|
i = 0 // índice de cadena de entrada
|
|
X$(i) = "1"
|
|
|
|
input "Indica cuantas repeticiones: " r
|
|
print "\nSecuencia:"
|
|
|
|
print X$(i)
|
|
for n = 1 to r-1
|
|
j = 1 - i // índice de cadena de salida
|
|
X$(j) = ""
|
|
k = 1
|
|
while k <= len(X$(i))
|
|
k0 = k + 1
|
|
while ((k0 <= len(X$(i))) and (mid$(X$(i), k, 1) = mid$(X$(i), k0, 1)))
|
|
k0 = k0 + 1
|
|
wend
|
|
X$(j) = X$(j) + str$(k0 - k) + mid$(X$(i), k, 1)
|
|
k = k0
|
|
wend
|
|
i = j
|
|
print X$(j)
|
|
next n
|
|
print
|