zadach22.BAS

{* Задача22 *}

REM basic

' В исходной строке a$ определить число слов, которые содержат хотябы один символ x$. Вывести исходную строку, результат анализа и соответствующие слова.


CLS
INPUT a$
INPUT x$
oldi = 1
For i = 1 To LEN(a$)
        If Mid$(a$, i, 1) = x$ Then
                 k = k + 1
                 j = i
                 If j  1 Then
                        Do While Mid$(a$, j, 1)  " "
                          j = j - 1
                          If j = 1 Then Exit Do
                          Loop
                 End If
 
                 Do While Mid$(a$, i, 1)  " "
                        i = i + 1
                        If i = LEN(a$) Then Exit Do
                 Loop
                 PRINT Mid$(a$, j, i - j)
        End If
Next i
PRINT k
End