паскаль_строки

[Пе4енька]

проверить удовлетворяет ли заданная строка Х указанным требованиям: в Х сбалансированы круглые и квадратные скобки (для каждого вида скобок: 1- кол-во открыв равно кол-ву закрыв. 2- перед каждой закрыв скобкой должна следовать соответствующая ей открыв).

[mss]

И опять ты скажешь "вообще ничего не знаю, не понимаю и не представляю" ?)
Не проще ли заплатить оптом за решение всех задач и не мучаться ?)

[Sparkman]

var x:string;
    i,n:integer;
begin
     write('Enter string: ');
     readln(x);
     for i:=1 to length(x) do
     if (x[i]='(')and(n>=0) then inc(n) else
     if (x[i]=')')and(n>0) then dec(n);
     if n=0 then writeln('X is valid')
     else writeln('X is not valid');
     readln;
end.

у настоящих студентов денег не бывает зато есть культ халявы
...ээх был бы в мое время нормальный инет - тоже докучал бы всем на его просторах

[Пе4енька]

Sparkman, спасибо)

[mss]

Сообщение от Sparkman

у настоящих студентов денег не бывает зато есть культ халявы

"Эт точно" (С) Ф.И.Сухов