В исходном предложении удалить все символы пробела. Напечатать исходный и преобразованный тексты, а также количество удаленных символов- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
INPUT "vvedite text:"; a$
b1$ = " ": 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)
        i = i + LEN(b2$) - 1
        k = k + 1
    END IF
LOOP UNTIL i = LEN(a$)
PRINT a$
PRINT k
END

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

Похожие записи/страницы:

Leave a Comment