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