1 2 3 4 5 6 7 8 | CLSINPUT "vvedite text ", t$INPUT "vvedite bukvu ", a$t$ = t$ + " "FOR i = 1 TO LEN(t$) IF MID$(t$, i, 2) = a$ + " " THEN k = k + 1NEXTPRINT k |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 | CLSINPUT "vvedite text ", t$INPUT "vvedite bukvu ", a$t$ = t$ + " "FOR i = 1 TO LEN(t$) IF MID$(t$, i, 2) = a$ + " " THEN k = k + 1NEXTPRINT k |
Тестирование выполнено в программе QB64 ( Скачать )