Заполните таблицу документы тхт хобби книга 1 xisx документы docx тесты учеба рабочие документы

3.

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

4.

использовать Чертежник

алг

нач

опустить перо

цел i

нц для i от 1 до 5  

фигура

кц

поднять перо

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

5.

использовать Чертежник

алг

нач

опустить перо

забор

робаз

поднять перо

кон

алг робаз

нач

цел i

нц для i от 1 до 5  

аругиф

кц

кон

алг аругиф

нач

сместиться на вектор(-2,0)

сместиться на вектор(0,-2)

сместиться на вектор(-2,0)

сместиться на вектор(0,2)

кон

алг забор

нач

цел i

нц для i от 1 до 5  

фигура

кц

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

ответ:

uses crt;

var s,sf,sl: string;

    i,l: integer;

begin

writeln('введите слова: ');

readln(s);

if s[1]=' ' then       //проверяем, чтобы не было пробелов в начале строки

  repeat

  delete(s,1,1);       //удаляем пробелы в начале строки, если они есть

  until s[1]< > ' ';

l: =length(s);

if s[l]=' ' then       //проверяем, чтобы не было пробелов в конце строки

  repeat

  delete(s,l,1);       //удаляем пробелы в начале строки, если они есть

  dec(l);

  until s[l]< > ' ';

i: =1;

sf: =''; sl: ='';         //изначально переменные для первого и последнего слова пусты

while s[i]< > ' ' do       //начинаем с первого символа и прекрепляем к первому слову

      begin

      sf: =sf+s[i];       //по одному символу до тех пор, пока не дойдем до пробела

      inc(i);           //увеличиваем счетчик символов на 1

      end;

i: =l;

while s[i]< > ' ' do     //начинаем с последнего символа и прекрепляем ко второму слову (спереди, то есмть по сути перед словом =))

      begin

      sl: =s[i]+sl;     //по одному символу до тех пор, пока не дойдем до пробела

      dec(i);         //уменьшаем счетчик символов на 1

      end;

writeln(sf,' ',sl);   //вывод

readln;

end.

объяснение: