Строка

[ZaRDaK]

1. Смотри пункт 3
2. Смотри пункт 3
3. Введи в свою новую прогу строку "((((", и узнаешь что ума у тебя нет, да, совсем нет.

Следи за словами, кончай флудить и срать кирпичами.

[_-Re@l-_]

1. Опять таки отзыв.
2. Почитай правила форума.
3. Ввёл.пункт 2.
4.Тестируй эту

Uses CRT;
Var
    x:integer;
    s:string;
    i:integer;
    a:string;
Begin
     readln(s);
     x:=0;
     a:='';
     for i:=1 to length(s) do
     begin
          if (Copy(s,i,1) = ')') and (a='') then
          begin
          Write('No!');
          Readln;
          exit;
          end;
          if Copy(s,i,1) = '(' then a:='(';
          if (Copy(s,i,1) = ')') and (a = '(') then begin
          x:=x+1;
          a:='';end;
     end;
if x > 0 then Write('Yes!');
if x = 0 then Write('No!');
readln;
end.

[ZaRDaK]

1. Над отзывом смеялся долго, спасибо, пиши еще.
2. Тебе тоже стоит их перечитать.
3. Следи за словами, кончай флудить и срать кирпичами.
4. Я замотаюсь тестить все вресий твоей программы.
Ты опять проиграл, строка "(()()".
5. Чтобы ты меня не парил проверкой решения, вот оно

Var
    x , i:integer;
    s:string;
Begin
readln(s);
x:=0;
 for i:=1 to length(s) do begin
  if S[i]=')' then Dec(x);
  if S[i]='(' then Inc(x);
 end;
if x <> 0 then Write('Nevernaya stroka!')
else write('Vernaya stroka!');
readln;
end.

Так-то.

[Serge_Bliznykov]

ZaRDaK, _-Re@l-_, ну Вы и накрутили!!
и это после того, как автор темы уже решила (для себя) данную задачу. И после того, как dxdy привёл пару решений.
И про при том, что алгоритм яйца выеденного не стоит! (и разжёван в моём пост #3)
Жуть...

_-Re@l-_, не понимаю, зачем пытаться развить заведомо неверный алгоритм? Вы что-то кому-то хотите доказать? ну-ну.. )) имхо, надо уметь признавать свою неправоту...

ZaRDaK, почти отлично. Только Вы не учитываете, что могут идти закрывающие скобки БЕЗ открывающих. (нужна проверка, что счётчик не стал меньше нуля...)
Вы попробуйте свой код на строчке '))(('

[ZaRDaK]

Хехе, спасибо.

Var
    x , i:integer;
    s:string;
Begin
readln(s);
x:=0;
 for i:=1 to length(s) do begin
  if S[i]=')' then Dec(x);
  if S[i]='(' then Inc(x);
  if x < 0 then break;
 end;
if x <> 0 then Write('Nevernaya stroka!')
else write('Vernaya stroka!');
readln;
end.