1 2 3 4 5 6 7 8 9 10 11 | CLSINPUT "Vvedite slovo:", Sl$PRINT "Slovo bez povtorov:";FOR bukv% = 1 TO LEN(Sl$) NoOut = 0 FOR pr% = 1 TO LEN(SlovNew$) IF bukv% <> pr% AND MID$(Sl$, bukv%, 1) = MID$(SlovNew$, pr%, 1) THEN NoOut = 1 NEXT IF NoOut = 0 THEN SlovNew$ = SlovNew$ + MID$(Sl$, bukv%, 1)NEXTPRINT SlovNew$ |
Тестирование выполнено в программе QB64 ( Скачать )