1 2 3 4 5 6 7 8 9 10 11 | CLSINPUT "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 NEXTPRINT "Kol-vo soglasnyh : "; k |
Тестирование выполнено в программе QB64 ( Скачать )