Kod: Zaznacz cały
program wyrazenia_nawiasowe;
var wyrazenie: String;
tab: array[1..10000] of Integer;
z,n: Longint;
function nawiasy(znak: Char): Boolean;
begin
nawiasy := (znak = '(') or (znak = ')');
end;
function dobry(t: String): Boolean;
var i,k,l,j: Longint;
begin
dobry:= true;
for j:=1 to Length(t) do
if not nawiasy(t[j]) then dobry:=false;
if dobry then
begin
for i:=1 to Length(t) do
begin
if t[i]='(' then k:=k+1;
if t[i]=')' then l:=l+1;
if k<l then dobry:=false;
end;
if k<>l then dobry:=false;
end;
end;
begin
Read(n);
for z:=1 to n do
begin
Read(wyrazenie);
if dobry(wyrazenie) then tab[z]:=1 else tab[z]:=0;
end;
for z:=1 to n do
begin
if tab[z]>0 then
Writeln('TRUE') else Writeln('FALSE');
end;
end.
