Поменять местами в строке первое и последнее слова

@Revolver19931 · Регистрация: 24.09.2013

Author24 — интернет-сервис помощи студентам

Поменять местами в строке первое и последнее слова. Считать, что слова отделены друг от друга одним пробелом.

@APALoff · 19.11.2013, 13:21

Pascal

For i:=Length(St) downto 1 do
  If St[i]=' ' then Break;
St:=Copy(St,i+1,Length(St)-i)+
     Copy(St,Pos(' ',St),i-Pos(' ',St)+1)+
     Copy(St,1,Pos(' ',St)-1);

Добавлено через 11 минут
Код будет работать правильно, при наличии не менее 2-ух слов, для универсальности требуется добавить проверку.

@Revolver19931 1 / 1 / 1 Регистрация: 24.09.2013 Сообщений: 140
		1
	Поменять местами в строке первое и последнее слова 18.11.2013, 20:42. Показов 1734. Ответов 1 Метки нет (Все метки) Поменять местами в строке первое и последнее слова. Считать, что слова отделены друг от друга одним пробелом. 0

	19.11.2013, 13:21

Поменять местами в строке первое и последнее слова

Решение