ответ:
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.
объяснение:
