REM Задача №1 CLS OPEN "input.txt" FOR INPUT AS #1 OPEN "output.txt" FOR OUTPUT AS #2 INPUT #1, s$ FOR i = 1 TO LEN(s$) s1$ = MID$(s$, i, 1) IF s1$ = "(" THEN n1 = n1 + 1 IF MID$(s$, i + 1, 1) = "(" THEN k = 1 END IF IF s1$ = ")" THEN n2 = n2 + 1 IF MID$(s$, i + 1, 1) = ")" THEN l = 1 END IF IF s1$ = "[" THEN p1 = p1 + 1 IF MID$(s$, i + 1, 1) = "[" THEN t = 1 END IF IF s1$ = "]" THEN p2 = p2 + 1 IF MID$(s$, i + 1, 1) = "]" THEN z = 1 END IF NEXT i n = 1 IF n2 = n1 AND LEFT$(s$, 1) = ")" AND RIGHT$(s$, 1) = "(" THEN s2$ = "(" + s$ + ")" IF p2 = p1 AND LEFT$(s$, 1) = "]" AND RIGHT$(s$, 1) = "[" THEN s2$ = "[" + s$ + "]" IF n2 > n1 THEN FOR i = 1 TO n2 - n1 s2$ = s2$ + "(" NEXT i s2$ = s2$ + s$ n = 0 END IF IF n1 > n2 THEN IF n = 1 THEN s2$ = s2$ + s$ FOR i = 1 TO n1 - n2 s2$ = s2$ + ")" NEXT i n = 0 END IF IF p2 > p1 THEN FOR i = 1 TO p2 - p1 s2$ = s2$ + "[" NEXT i IF n = 1 THEN s2$ = s2$ + s$ n = 0 END IF IF p1 > p2 THEN IF n = 1 THEN s2$ = s2$ + s$ FOR i = 1 TO p1 - p2 s2$ = s2$ + "]" NEXT i END IF IF n1 + n2 + p1 + p2 <> LEN(s$) THEN s2$ = "NO" IF (n1 > 1 AND n2 = 0 AND k = 1 AND p1 = p2) OR (n2 > 1 AND n1 = 0 AND l = 1 AND p1 = p2) THEN s2$ = "NO" IF (p1 > 1 AND p2 = 0 AND t = 1 AND n1 = n2) OR (p2 > 1 AND p1 = 0 AND z = 1 AND n1 = n2) THEN s2$ = "NO" PRINT #2, s2$ CLOSE #1 CLOSE #2 SYSTEM