Найти, какая из букв чаще встречается в слове — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
INPUT "Vvedite slovo"; a$
n = LEN(a$)
DIM b$(n)
FOR i = 1 TO n
    b$(i) = MID$(a$, i, 1)
NEXT i
s = 0
FOR i = 1 TO n
    k = 0
    FOR j = i + 1 TO n
        IF b$(j) = b$(i) THEN k = k + 1
    NEXT j
    IF k > s THEN s = k: bukv$ = b$(i)
NEXT i
IF s > 0 THEN
    PRINT "bukva "; bukv$; " v slove "; a$; " vstrechaetsya chashe"
ELSE
    PRINT "kazhdaya bukva v slove "; a$; " vstrechaetsya odin raz"
END IF
END

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

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

Leave a Comment