ПАСКАЛЬ Дана строка, состоящая ровно из двух слов, разделенных пробелом. Переставьте эти...

Question

ПАСКАЛЬ
Дана строка, состоящая ровно из двух слов, разделенных пробелом. Переставьте эти слова местами. Результат запишите в строку и выведите получившуюся строку.
При решении этой задачи нельзя пользоваться циклами и инструкцией if.

Answer 1

Var s, s1, s2, probel: string;
dlina, probelPos: integer;
begin

readln(s);

probel := ' ';
probelPos := pos(probel, stroka);
dlina = length(s);

s1 := copy(s, 1, probelPos-1);
s2 := copy(s, probelPos+1, dlina);
s := s2 + probel + s1;

writeln(s);

end.

Answer 2

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString.ToWords.Reverse; s.Println
end.

---