INPUT "vvedite chislo ", n&
DIM a(10)
DO
k = k + 1
t = n& MOD 10
a(t) = a(t) + 1
n& = n& \ 10
LOOP UNTIL n& = 0
FOR i = 0 TO 9
IF a(i) <> 0 THEN kol = kol + 1
NEXT
PRINT "v chisle "; kol; " razlichnyh cifr"