46

Дана строка ответить соответствует ли количество открывающих скобок…

04 марта 2023

Дана строка ответить соответствует ли количество открывающих скобок закрывающим. Пожалуйста решаю в паскале желательно собъяснением

категория: информатика



81

var a: string; b,c,i: integer; beginreadln (a); for i: =1 to length (a) do beginif a[i]=' (' then inc (b); if a[i]=') ' then inc (c); end; {после цикла переменная б — счетчик скобок» (", а с — ") "} if b=c then writeln ('Kolichestvo skobok odinakovo') else writeln ('Kol-vo skobok ne odinakovo'); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...