Удалить часть символьной строки, заключенной в скобки (вместе со скобками) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
LINE INPUT "vvedite text:"; a$
DO
    q1 = INSTR(a$, "(")
    q2 = INSTR(a$, ")")
    IF q1 > 0 AND q2 > 0 THEN
        a$ = MID$(a$, 1, q1 - 1) + MID$(a$, q2 + 1, LEN(a$) - q2)
    ELSE
        EXIT DO
    END IF
LOOP
PRINT a$

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