Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Module Main
- Public Function Main(ByVal Args() As String)As Integer
- ' Индекс элемента
- Dim i As Integer
- ' Список
- Dim q = Enumerable.Range(1, 17).ToArray
- ' Квадраты 4 9 16 25
- Dim f = Enumerable.Range(2, 4).Select(Function (x As Integer) x * x).ToArray
- ' Количество ложных совпадений
- Dim FalseCount As Integer
- Do
- If f.Contains(q(i) + q(i + 1)) Then
- i += 1
- FalseCount = 0
- Else
- For t As Integer = i + 1 To q.Length - 2
- Dim d As Integer = q(t)
- q(t) = q(t + 1)
- q(t+ 1) = d
- Next
- FalseCount += 1
- If FalseCount > q.Length Then
- i = 0
- FalseCount = 0
- For t As Integer = 0 To q.Length - 2
- Dim d As Integer = q(t)
- q(t) = q(t + 1)
- q(t+ 1) = d
- Next
- End If
- End If
- Loop Until i >= q.Length - 2 ' Идти до тех пор, пока не превысим коллекцию -2 элемента
- For Each i In q
- Console.Write(i & " ")
- Next
- Return 0
- End Function
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement