{* Задача25 *}

REM basic

' В предложении найти слова, последовательности букв (например, abc, nop)


CLS
INPUT "vvedite Text"; a$
For i = 1 To LEN(a$)
    w = q
    q = ASC(LCASE$(Mid$(a$, i, 1))) - ASC("a") + 1
    If q >= 1 And q = 2 And q - w = 1 Then t = t + 1
        If i = LEN(a$) And t + 1 = f Then k = k + 1
    Else
        If t + 1 = f Then k = k + 1
        t = 0: f = 0
    End If
Next
PRINT a$
PRINT "k="; k
End