CLS
INPUT "vvedite text ", t$
INPUT "vvedite bukvu ", a$
t$ = t$ + " "
FOR i = 1 TO LEN(t$)
IF MID$(t$, i, 2) = a$ + " " THEN k = k + 1
NEXT
PRINT k
Тестирование выполнено в программе QB64 ( Скачать )
CLS
INPUT "vvedite text ", t$
INPUT "vvedite bukvu ", a$
t$ = t$ + " "
FOR i = 1 TO LEN(t$)
IF MID$(t$, i, 2) = a$ + " " THEN k = k + 1
NEXT
PRINT k
Тестирование выполнено в программе QB64 ( Скачать )