{* Задача18 *}

REM basic

' Поменять местами каждое первое и третье слово A$. Слова
' разделены одиночными пробелами. Общее количество слов кратно трем.


CLS
k = 1: A$ = "Один два три1 Один два три2 Один два три3"
Do
        x = INSTR(k, A$, " {)
}    If x > 0 Then
        T$ = Mid$(A$, k, x - k)  {Выделяем слово.
}                h = h + 1
        {Формируем результат.
}                If h > 3 Then h = 1: Rez$ = Rez$ + " " + tmpRez$: tmpRez$ = "{
}        {Формируем tmpRez$ в зависимости от h. 
}        If h = 1 Then T1$ = T$
        If h = 2 Then tmpRez$ = T$ + " " + tmpRez$
        If h = 3 Then tmpRez$ = T$ + " " + tmpRez$ + T1$: T1$ = "{
}                k = x + 1
   End If
Loop Until x = 0

{Формируем последнюю тройку.
}tmpRez$ = Mid$(A$, k) + " " + tmpRez$ + T1$
PRINT Rez$ + " " + tmpRez$
End