Question

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

Answer 1

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

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

Answer 2

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 3

В Паскале, чтобы решить данную задачу без использования циклов и инструкции if, можно воспользоваться встроенными функциями для работы со строками. Вот пример решения:

pascalCopy code
program SwapWords;
var
  inputStr, firstWord, secondWord, result: string;
begin
  // Ввод строки
  writeln('Введите строку из двух слов, разделенных пробелом:');
  readln(inputStr);
  
  // Используем функцию Pos для поиска позиции пробела
  // и функции Copy для выделения первого и второго слова
  firstWord := Copy(inputStr, 1, Pos(' ', inputStr) - 1);
  secondWord := Copy(inputStr, Pos(' ', inputStr) + 1, Length(inputStr));
  
  // Формируем и выводим результат
  result := secondWord + ' ' + firstWord;
  writeln('Результат:', result);
end.

В этом примере сначала происходит чтение строки от пользователя. Затем с помощью функций Pos и Copy мы выделяем первое и второе слово. Затем слова объединяются в новой строке, где второе слово идет перед первым, и выводится полученный результат.