Дана строка.подсчитать сколько раз в нее входит группа букв «абв»- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
CLS
INPUT "Vvedite stroku "; s$
k = 0
FOR i = 1 TO LEN(s$)
    IF (i + 2 <= LEN(s$)) THEN
        IF MID$(s$, i, 3) = "абв" THEN k = k + 1
    END IF
NEXT
PRINT "gruppa bukv абв vhodit "; k; " raz"
END

Следующий вариант

1
2
3
4
5
6
7
CLS
INPUT "Vvedite stroku "; s$
k = 0
FOR i = 1 TO LEN(s$) - 2
    IF MID$(s$, i, 3) = "абв" THEN k = k + 1
NEXT
PRINT "gruppa bukv абв vhodit  "; k; " raz"

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

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

Leave a Comment