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

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

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

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

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

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

1.                                                    

program raf105;

var

 a, s: real;

function square(a: real): real;

begin

 square:= a*a;

end;

begin

 write('Введите сторону квадрата: ');

 readln(a);

 s:= square(a);

 writeln('Его площадь равна ',s);

end.

2.                                                    

program raf105;

var

 num10, num2, count_1: integer;

begin

 write('Введите десятичное число: ');

 readln(num10);

 repeat

   if (num10 mod 2 = 1) then

     count_1:= count_1 + 1;

   num10:= num10 div 2;

   if num10 = 1 then

     inc(count_1)

 until num10 <= 1;

 writeln('В двоичной записи числа ',count_1,' ед.');

end.

                                                       PascalABC 3.4.2

const

 n=10;

type  

 massive = array [1..n] of integer;

procedure select(mas : massive);

var

 i, j, k,tmp: integer;

begin

 for i:=1 to n-1 do

   begin

     k:=i;

     tmp:=mas[i];

     for j:=i+1 to n do

       if (mas[j]<tmp) then

         begin

           k:=j;

           tmp:=mas[j];

         end;

     mas[k]:=mas[i];

     mas[i]:=tmp;

   end;

 write('Сортировка выбором:');

 for i:=1 to n do

   write(' ',mas[i],', ');

end;

procedure bubble (mas : massive);

var

 i,j,tmp:integer;

begin  

 for i:=1 to n-1 do

   for j:=1 to n-i do

     if (mas[j]>mas[j+1]) then

       begin

         tmp:=mas[j];

         mas[j]:=mas[j+1];

         mas[j+1]:=tmp;

       end;

 write('Сортировка пузырьком:');

 for i:=1 to n do

   write(' ',mas[i],', ');

end;

procedure insert(mas : massive);

var

 i,j,k,tmp : integer;

begin

 for i:=2 to n do

   begin

     tmp:=mas[i];

     j:=1;

     while (tmp>mas[j]) do

       j:=j+1;

     for k:=i-1 downto j do

       mas[k+1]:=mas[k];

     mas[j]:=tmp;

   end;

write('Сортировка вставкой:');

for i:=1 to n do  

 write(' ',mas[i],', ');

end;  

var

i : integer;

a : massive;

begin

 randomize;

 write('Массив:');

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 select(a);

 writeln;

 bubble(a);

 writeln;

 insert(a);

end.