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

INPUT text$
os=0
zs=0
FOR i=1 TO LEN(text$)
IF MID$(text$,i,1)="(" THEN os=os+1
IF MID$(text$,i,1)=")" THEN zs=zs+1
NEXT i
IF os=zs THEN PRINT "Кол-во откр и закр скобок равно" ELSE IF os<>zs THEN PRINT "не равно" (ELSE PRINT "Не работает")
END

Leave a Comment