zadach29.BAS

{* Задача29 *}

REM basic

' Подсчитать количество шипящих букв в слове


DATA "ж","ш","ч","щ"
Dim a$(4)
For i=1 To 4
READ a$(i)
Next
INPUT b$
For i=1 To LEN(b$)
For j=1 To 4
If Mid$(b$,i,1)=a(j)Then k=k+1
Next
Next
PRINT k
End