1 2 3 4 5 6 7 8 9 10 11 12 | DATA а,е,ё,и,о,у,ы,э,ю,яDIM a$(10)FOR i = 1 TO 10READ a$(i)NEXTINPUT text$FOR i = 1 TO LEN(text$) FOR j = 1 TO 10 IF MID$(text$, i, 1) = a$(j) THEN k = k + 1 NEXT NEXT PRINT k/LEN(text$)*100 |