1 2 3 4 5 6 7 8 9 10 11 12 | DIM S AS STRING, Sh AS STRING CLS INPUT "Vvedite slovo : ", SIF LEN(S) < 2 THEN PRINT "Slishkom korotkoe!": END Sh = "aeiou" FOR i = 1 TO 5 IF LCASE$(MID$(S, 2, 1)) = MID$(Sh, i, 1) THEN Gl = 1 NEXT IF Gl = 1 THEN PRINT "Glasnaya" ELSE PRINT "Soglasnaya" |
Тестирование выполнено в программе QB64 ( Скачать )