1 2 3 4 5 6 7 8 9 10 11 12 | INPUT a$b$ = "krokodil"FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = "k" THEN n = n + 1 IF MID$(a$, i, 1) = "o" THEN m = m + 1NEXTFOR i = 1 TO LEN(b$) FOR j = 1 TO LEN(a$) IF MID$(b$, i, 1) = MID$(a$, j, 1) THEN k = k + 1: EXIT FOR NEXTNEXTIF k = 8 AND n >= 2 AND m >= 2 THEN PRINT "yes" ELSE PRINT "no" |
Тестирование выполнено в программе QB64 ( Скачать )