Правильная скобочная последовательность Рассмотрим последовательность, состоящую из круглых, квадратных и фигурных скобок. Программа дожна определить, является ли данная скобочная последовательность правильной.
Пустая последовательность явлется правильной. Если A — правильная, то последовательности (A), [A], {A} — правильные. Если A и B — правильные последовательности, то последовательность AB — правильная.
Входные данные
В единственной строке записана скобочная последовательность, содержащая не более 100000 скобок.
Выходные данные
Если данная скобочная последовательность правильная, то программа должна вывести строку yes, иначе строку no.
На питоне
1)
var
i, n, a: integer;
begin
readln(n);
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
if a mod 10 = 4) and (a > 10) and (a < 100) then
writeln(a);
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
end.
2)
var
i, n, a, z, min: integer;
begin
readln(n);
z:= 0;
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
z:= z + 1;
if (i <> 0) and (z = 1) then
min:= a;
if (a < min) then min:= a;
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
writeln(min)
end.
1)
var
i, n, a: integer;
begin
readln(n);
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
if a mod 10 = 4) and (a > 10) and (a < 100) then
writeln(a);
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
end.
2)
var
i, n, a, z, min: integer;
begin
readln(n);
z:= 0;
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
z:= z + 1;
if (i <> 0) and (z = 1) then
min:= a;
if (a < min) then min:= a;
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
writeln(min)
end.