{* Задача31 *}

REM basic

' Ввести слово и в слове подсчитать количество согласных букв


CLS
INPUT "Vvedite stroku : ", S$
S$ = LCASE$(S$)
Sh$ = "aeiouy"
  For i = 1 To LEN(S$): f = 1
      For j = 1 To LEN(Sh$)
         If Mid$(S$, i, 1) = Mid$(Sh$, j, 1) Then f = 0
      Next
      k = k + f
  Next
PRINT "Kol-vo soglasnyh : "; k
End