1 2 3 4 5 6 7 8 9 10 11 | CLSsogl$ = "бвгджзклмнпрстфхцчшщ"PRINT "Vvedite tekst"INPUT a$FOR i = 1 TO LEN(a$)IF MID$(a$, i, 1) = "." THEN EXIT FOR FOR j = 1 TO LEN(sogl$) IF MID$(a$, i, 1) = MID$(sogl$, j, 1) THEN k = k + 1: EXIT FOR NEXT jNEXT iPRINT "Kolvo soglasnih bukv=";k |
Тестирование выполнено в программе QB64 ( Скачать )