1 2 3 4 5 6 7 8 9 10 11 | CLSINPUT "vvedite a$"; a$INPUT "vvedite b$"; b$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 2) = "ka" THEN k1 = k1 + 1NEXTFOR i = 1 TO LEN(b$) IF MID$(b$, i, 2) = "ka" THEN k2 = k2 + 1NEXTPRINT "a$ 'ka' ="; k1PRINT "b$ 'ka' ="; k2 |
Тестирование выполнено в программе QB64 ( Скачать )