30 lines
699 B
Plaintext
30 lines
699 B
Plaintext
Data "1001110011", "1110111011", "0010010010", "1010101010", "1111111111", "0100101101", "0100100", "101", "11", "00", "1", ""
|
||
|
||
Function rep(c As String, n As Integer) As String
|
||
Dim As String r
|
||
|
||
For i As Integer = 1 To n
|
||
r = r + c
|
||
Next i
|
||
Return r
|
||
End Function
|
||
|
||
Do
|
||
Dim As String p, b = "", t, s
|
||
Read p : If p = "" Then Exit Do
|
||
Dim As Integer l = Len(p), m = Int(l / 2)
|
||
|
||
For i As Integer = m To 1 Step -1
|
||
t = Left(p, i)
|
||
s = rep(t, l / i + 1)
|
||
If p = Left(s, l) Then b = t : Exit For
|
||
Next i
|
||
|
||
If b = "" Then
|
||
Print p; " no es una cadena repetida"
|
||
Else
|
||
Print p; " secuencia m s larga: "; b
|
||
End If
|
||
Loop
|
||
Sleep
|