1 2 3 4 5 6 7 8 9 10 11 12 | REMCLSINPUT "Vvedite text", s$FOR i = 1 TO LEN(s$) IF MID$(s$, i, 1) = "e" THEN k = k + 1 IF MID$(s$, i, 1) = "y" THEN k = k + 1 IF MID$(s$, i, 1) = "i" THEN k = k + 1 IF MID$(s$, i, 1) = "o" THEN k = k + 1 IF MID$(s$, i, 1) = "u" THEN k = k + 1NEXT iPRINT "Kolvo glasnih bukv v tekste"; kEND |
Тестирование выполнено в программе QB64 ( Скачать )