CLS
PRINT TAB(15); “Îïðåäåëåíèå êîëè÷åñòâà ðàçëè÷íûõ áóêâ â ôðàçå”
PRINT TAB(5); “Ââåäèòå ôðàçó: ”;
LINE INPUT “”, A$
Q = LEN(A$)
DIM S$(Q)
S$(0) = “”
FOR I = 1 TO Q
L = 0
C$ = MID$(A$, I, 1
W = ASC(C$)
IF W >=128 AND W <= 143 THEN W = W + 32
IF W >=144 AND W <= 159 THEN W = W + 80
C$ = CHR$(W)
IF (W >= 65 AND W <= 90) OR (W >= 97 AND W<= 122) OR (W >= 128 AND W <= 175) OR (W >= 224 AN W <= 241) THEN
	FOR J = 1 TO K
IF C$ = S$(J) THEN L = 1
		NEXT J
	IF L = 0 THEN K = K + 1: S$(K) = C$
	END IF
        NEXT  I
       PRINT TAB(5); “ ôðàçå âñòðå÷àåòñÿ”; k; “ðàçëè÷íûõ áóêâ”
       FOR I = 1 TO K
       PRINT S$(I)
       NEXT I
       END