1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT c$DIM a$(100)c$ = " " + c$FOR i = 1 TO LEN(c$) - 1 IF MID$(c$, i, 1) = " " THEN k = k + 1 ELSE a$(k) = a$(k) + MID$(c$, i, 1)NEXTa$(k + 1) = ""FOR i = 1 TO k FOR j = 2 TO k IF a$(j) < a$(j - 1) THEN SWAP a$(j), a$(j - 1) NEXTNEXTFOR i = 2 TO k IF a$(i) = a$(i - 1) AND a$(i) <> a$(i + 1) THEN m = m + 1NEXTPRINT m |
Тестирование выполнено в программе QB64 ( Скачать )