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

disel
1
2
3
4
5
6
7
8
9
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