Строка содержит текст. Определить сколько раз в нём встречаются каждая из цифр десятичной системы счисления. Ответ должен приводиться в грамматически правильной форме — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
CLS
INPUT "vveddite text ", a$
DIM b(10)
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) >= "0" AND MID$(a$, i, 1) <= "9" THEN k = VAL(MID$(a$, i, 1)): b(k) = b(k) + 1
NEXT
PRINT "cifra        kol-vo"
FOR i = 0 TO 9
    PRINT i, b(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment