Даны натуральное число n, символы s1, …,sn. Определить число вхождений в...

Question

Даны натуральное число n, символы s1, …,sn. Определить число вхождений в последовательностьs1, …,sn группы букв:
а) abc. (Только в qbasic!!)

Answer 1

CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
   n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
    IF MID$(S$, i, 3) = a$ THEN
       k = k + 1
    END IF
NEXT i
PRINT "k = "; k
END