Правильная скобочная последовательность Рассмотрим последовательность, состоящую из круглых, квадратных и фигурных скобок. Программа дожна определить, является ли данная скобочная последовательность правильной.

Пустая последовательность явлется правильной. Если A — правильная, то последовательности (A), [A], {A} — правильные. Если A и B — правильные последовательности, то последовательность AB — правильная.

Входные данные

В единственной строке записана скобочная последовательность, содержащая не более 100000 скобок.

Выходные данные

Если данная скобочная последовательность правильная, то программа должна вывести строку yes, иначе строку no.
На питоне

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил

(1) цирк  (2) пирк    (3)  пирзприз  (1) волк  (2) солк(3)  солн  слон  (1) стук   (2)  (м) мтук(3) (ь)  мтуьмуть  (1) крот     (2)  (м) мрот(3) (г)  мрогморг

var i, j, k, p: integer; a, b: array[1..10] of integer;

begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.