Заданы М строк слов ,которые вводятся с клавиатуры. Вводится слог(последовательность букв). Удалить данный слог из каждой строки — QBasic(Бейсик)

INPUT "vvedite kol-vo strok: ", m
DIM a$(m)
FOR i = 1 TO m
    INPUT "vvedite stroku: "; a$(i)
NEXT
INPUT "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 ( Скачать )

Leave a Comment