Проверить баланс скобок в строке

@JockerLord · Регистрация: 26.06.2010

Author24 — интернет-сервис помощи студентам

Дана строка, содержащая латинские буквы и круглые скобки. Ес-
ли скобки расставлены правильно (то есть каждой открывающей соот-
ветствует одна закрывающая), то вывести число 0. В противном случае
вывести или номер позиции, в которой расположена первая ошибочная за-
крывающая скобка, или, если закрывающих скобок не хватает, число -1.

01.03.2011, 14:44

Pascal

Var
  s: string;
  i, x: integer;  
Begin
  readln(s); 
  x:=0;
  repeat 
    inc(i);
    if s[i] = '(' then inc(x);
    if s[i] = ')' then dec(x);    
  until (x<0) or (i=length(s));
  
  {бла бла бла... тут типа иф... если уж с этим не справишься - значит не судьба}
End.

@JockerLord 0 / 0 / 0 Регистрация: 26.06.2010 Сообщений: 54
		1
	Проверить баланс скобок в строке 30.06.2010, 09:14. Показов 1297. Ответов 1 Метки нет (Все метки) Дана строка, содержащая латинские буквы и круглые скобки. Ес- ли скобки расставлены правильно (то есть каждой открывающей соот- ветствует одна закрывающая), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена первая ошибочная за- крывающая скобка, или, если закрывающих скобок не хватает, число -1. 0

	01.03.2011, 14:44

Проверить баланс скобок в строке

Решение