Найти количество различных цифр данного натурального числа- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
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"

Похожие записи/страницы:

Leave a Comment