1 2 3 4 5 6 7 8 9 | CLSINPUT "vvedite slovo"; a$u$ = "aeiou" ' добавь/замени здесь гласные буквыFOR i = 1 TO LEN(a$) FOR j = 1 TO LEN(u$) IF MID$(a$, i, 1) = MID$(u$, j, 1) THEN k = k + 1 NEXTNEXTPRINT k |
Тестирование выполнено в программе QB64 ( Скачать )