1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT "vvedite kol-vo strok ", nDIM a$(n)INPUT "vvedite simvol ", b$FOR i = 1 TO n INPUT "vvedite stroku ", a$(i)NEXTFOR i = 1 TO n k = 0 FOR j = 1 TO LEN(a$(i)) IF MID$(a$(i), j, 1) = b$ THEN k = k + 1 NEXT PRINT "stroka nomer"; i; "kolicestvo simvolov "; b$; "="; kNEXT |
Тестирование выполнено в программе QB64 ( Скачать )