Решить в паскаль 1. поменять местами слова в строках, состоящих из двух слов. 2.даны три строки. вывести самую длинную строку. (первая - линейный алгоритм, вторая - ветвление) прошу !

нам дана строка из двух слов. например, 'ah-ha nanana'. сначала найдем индекс пробела в этой строке. это делает функция pos(s1, s). она возвращает первый встретившийся индекс подстроки s1 в строке s. если мы вызовем pos(' ', 'ah-ha nanana'), она вернет 6. сохраним это значение в переменную space.

функция copy(s, pos, n) возвращает подстроку строки s из n символов, которая начинается в pos. для копирования первого слова нам нужно взять подстроку, которая начинается с первого символа и имеет длину space-1. под номером space в строке находится пробел, а в space+1 - начало второго слова.

таким образом, copy('ah-ha nanana', 1, space-1) вернет 'ah-ha', а copy('ah-ha nanana', space+1, length('ah-ha nanana')-space) - 'nanana'.

var

  s, s1, s2: string;

  space: longint;

begin

  readln(s);

  space : = pos(' ', s);

  s1 : = copy(s, 1, space - 1);

  s2 : = copy(s, space + 1, length(s) - space);

  s : = s2 + ' ' + s1;

  writeln(s);

end.

предположим, что первая введенная строка - самая длинная. если вторая строка длиннее первой, изменим ответ. если третья строка длиннее самой длинной из первых двух, изменим ответ.

примечание: в переменной s мы сначала храним первую введенную строку, а после ввода - максимальную. если нужно сохранить первую введенную строку, лучше хранить максимальную в отдельной переменной.

var

  s, s1, s2: string;

begin

  readln(s);

  readln(s1);

  readln(s2);

  if length(s1) > length(s) then s : = s1;

  if length(s2) > length(s) then s : = s2;

  writeln(s);

end.