1 2 3 4 5 6 7 8 9 | INPUT a$FOR i = 1 TO LEN(a$) f = 0 FOR j = 1 TO LEN(a$) IF i <> j AND MID$(a$, i, 1) = MID$(a$, j, 1) THEN f = 1 NEXT IF f = 0 THEN k = k + 1NEXTPRINT k |
Тестирование выполнено в программе QB64 ( Скачать )