1 2 3 4 5 6 7 8 | INPUT "vvedite stroku ", a$INPUT "vvedite kol-vo slov ", nFOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN k = k + 1 IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)NEXTPRINT "novaya stroka:"PRINT b$ |
Следующий вариант
1 2 3 4 5 6 7 8 9 10 11 12 | INPUT "vvedite stroku ", a$FOR i = 1 TO LEN(a$)IF MID$(a$, i, 1) = " " THEN m = m + 1NEXTINPUT "vvedite kol-vo slov ", nIF n > (m + 1) THEN n = n MOD (m + 1)FOR i = 1 TO LEN(a$)IF MID$(a$, i, 1) = " " THEN k = k + 1IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)NEXTPRINT "novaya stroka:"PRINT b$ |
Тестирование выполнено в программе QB64 ( Скачать )