1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT "vvedite kol-vo strok: ", mDIM a$(m)FOR i = 1 TO m INPUT "vvedite stroku: "; a$(i)NEXTINPUT "vvedite slog: ", b$n = LEN(b$)PRINT "stroki bez sloga"FOR i = 1 TO m DO c = INSTR(a$(i), b$) IF c <> 0 THEN a$(i) = MID$(a$(i), 1, c - 1) + MID$(a$(i), c + n) LOOP UNTIL c = 0 PRINT a$(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )