На координатной плоскости отметьте и пронумеруйте точки, координаты которых приведены на рисунке. Соедините точки в заданной последовательности. Помните, первое число - по оси ОХ, второе - по оси ОY. Подготовь рисунок в тетради на координатной плоскости для проверки учителем. Отметьте точки 1(2, 6), 2(2, 8), 3(1, 10), 4(2, 11), 5(4, 8), 6(13, 8), 7(15, 6), 8(10, 6), 9(8, 2), 10(5, 2), 11(7, 6), 12(7, 8), 13(6, 10), 14(9, 10), 15(10, 8 Соедините точки: 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 1. 12 - 13 - 14 - 15. рисунок из них выбрать и сделать корабль ключ самолет

const

      MAX = 20;

    var

      s:string;

      stack:array[1..MAX] of string;

      top:integer;

      i:byte;

   

    procedure Push(ch:string);

    begin

      if top>=MAX then WriteLn('Stask full')

      else

      begin

        stack[top]:=ch;

        top:=top+1;

      end;

    end;

   

    function Pop:string;

    begin

      top:=top-1;

      if top<1 then

      begin

        WriteLn('Stack underflow');

        top:=top+1;

      end

      else Pop := stack[top];

    end;

begin

top:=1;

s:='<asdf<asdf>asdf>';//правильная строка

for i:=1 to length(s) do

begin

   if s[i]='<' then Push('<');

   if s[i]='>' then

       if Pop()<>'<' then WriteLn('Ошибка!');

end;

if top<>1 then WriteLn('Ошибка!');

top:=1;

s:='<asdf<asdfasdf>';//не правильная строка

for i:=1 to length(s) do

begin

   if s[i]='<' then Push('<');

   if s[i]='>' then

     if Pop()<>'<' then WriteLn('Ошибка!');

end;

if top<>1 then WriteLn('Ошибка!');

end.

Объяснение: