1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | remCLSINPUT "Введите текст",s$FOR i=1 TO LEN(s$)IF MID$(s$,i,1)="а" THEN k=k+1IF MID$(s$,i,1)="е" THEN k=k+1IF MID$(s$,i,1)="и" THEN k=k+1IF MID$(s$,i,1)="о" THEN k=k+1IF MID$(s$,i,1)="у" THEN k=k+1IF MID$(s$,i,1)="э" THEN k=k+1IF MID$(s$,i,1)="ю" THEN k=k+1IF MID$(s$,i,1)="я" THEN k=k+1NEXT iPRINT "кол-во гласных букв в тексте="; kEND |