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

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

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

begin
  var s:=ReadlnString.ToWords.Reverse; s.Println
end.
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт