Составить программу, удаляющую букву «А» в предложении. Подсчитать число удалений- QBasic(Бейсик)

CLS
INPUT "vvedite text:"; a$
b1$ = "a": b2$ = ""
DO
    i = i + 1
    IF MID$(a$, i, LEN(b1$)) = b1$ THEN a$ = MID$(a$, 1, i - 1) + b2$ + MID$(a$, i + LEN(b1$), LEN(a$) - i + 1): i = 0: k = k + 1
LOOP UNTIL i = LEN(a$)
PRINT a$
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment