Thứ Tư, 27 tháng 4, 2022

NGOAC PASCAL

var n,i,d,m:longint;
       s:string;

procedure giai;
var dong,mo,i:longint;
begin
    readln(s);
    d:=0;    m:=0;
    for i:=1 to length(s) do
    begin
           if s[i]=')' then inc(d)
           else inc(m);
           if d>m then 
        begin
            writeln('NO');
            exit;
        end;
       end;
    if d=m then writeln('YES');
    else writeln('NO');
end;

begin
    assign(input, 'ngoac.inp');reset(input);
    assign(output, 'ngoac.out');rewrite(output);
    readln(n);
    for i:=1 to n do
           giai;
end.

Không có nhận xét nào:

Đăng nhận xét

Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.