1 2 3 4 5 | Пример ввода: BANAN вывод: ANBNA или же ВВод: LALALALAT Вывод:AALLTLLAA |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | INPUT "vvedite slovo ", a$ DIM b$(LEN(a$) + 1 ) FOR i = 1 TO LEN(a$) b$(i) = MID$(a$, i, 1 ) NEXT FOR i = 1 TO LEN(a$) FOR j = 2 TO LEN(a$) IF b$(j) < b$(j - 1 ) THEN SWAP b$(j), b$(j - 1 ) NEXT NEXT k = 1 FOR i = 2 TO LEN(a$) + 1 IF b$(i) = b$(i - 1 ) THEN k = k + 1 ELSE IF k MOD 2 <> 0 THEN n = n + 1 : FOR j = 1 TO k: t$ = t$ + b$(i - 1 ): NEXT ELSE FOR j = 1 TO k / 2 : c$ = c$ + b$(i - 1 ): NEXT k = 1 END IF NEXT IF n > 1 OR n = 0 THEN PRINT "net resheniy": END k = 1 r$ = c$ + t$ FOR i = LEN(c$) TO 1 STEP - 1 r$ = r$ + MID$(c$, i, 1 ) NEXT PRINT "rezultat="; r$ |
Тестирование выполнено в программе QB64 ( Скачать )