1 2 3 4 5 6 7 8 9 10 11 12 | DATA a,e,i,o,y,uDIM a$(6)FOR i = 1 TO 6 READ a$(i)NEXTINPUT text$FOR i = 1 TO LEN(text$) FOR j = 1 TO 6 IF MID$(text$, i, 1) = a$(j) THEN k = k + 1 NEXTNEXTPRINT k / LEN(text$) * 100 |
Тестирование выполнено в программе QB64 ( Скачать )