1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT a$ min = 255 FOR i = 1 TO LEN(a$) FOR j = 1 TO LEN(a$) IF i <> j AND MID$(a$, i, 1 ) = MID$(a$, j, 1 ) THEN kol = kol + 1 NEXT IF kol < min THEN min = kol kol = 0 NEXT FOR i = 1 TO LEN(a$) FOR j = 1 TO LEN(a$) IF i <> j AND MID$(a$, i, 1 ) = MID$(a$, j, 1 ) THEN kol = kol + 1 NEXT IF kol = min THEN PRINT MID$(a$, i, 1 ) kol = 0 NEXT |