Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0

@Kirill-x-zibit · Регистрация: 10.10.2010

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

@PsiYar · 03.03.2011, 11:57

Pascal

ses crt;
var str:string;
i,k1,k2:byte;
begin
clrscr;
writeln('vvedite stroku');
readln(str);
for i:=1 to length(str) do
 begin
 if str[i]='(' then inc(k1);
 if str[i]=')' then inc(k2);
 end;
if k1=k2 then
writeln('0');
if k1>k2 then
writeln('-1');
if k1<k2 then
k2:=0;
 for i:=1 to length(str) do
  begin
   if str[i]=')' then inc(k2);
    if k2=k1 then if str[i+1]=')' then
     begin
     writeln(i+1);
     exit;
     end;
  end;
readln;
end.

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

Опции темы

Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0

Решение