1 2 3 4 5 6 7 8 9 | INPUT a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = "(" THEN n1 = i IF MID$(a$, i, 1) = ")" THEN n2 = iNEXTFOR i = 1 TO LEN(a$) IF i < n1 OR i > n2 THEN b$ = b$ + MID$(a$, i, 1)NEXTPRINT b$ |
Тестирование выполнено в программе QB64 ( Скачать )