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

@WhiteBear · Регистрация: 10.02.2010

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

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

Дана строка, например "Имя Фамилия", нужно поменять местами слова в строке.

@John_Pa9JIbHuK · 28.02.2010, 18:53

начиная с конца строки перебери все слова и запиши их в другу строку вот и все

@WhiteBear · 28.02.2010, 19:49 **[ТС]**

Простите, а как это выглядит на Паскале?)

@John_Pa9JIbHuK · 28.02.2010, 20:12

Pascal

var
s,s1,s2:String;
begin
readln(s);
s:=s+' ';
while s<>'' do
              Begin
              s2:=copy(s,1,pos(' ',s));
              insert(s2,s1,1);
              delete(s,1,pos(' ',s));
              End;
writeln(s1);
end.

@WhiteBear 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 3
		1
	Поменять местами слова в строке 28.02.2010, 18:50. Показов 15695. Ответов 3 Метки нет (Все метки) Помогите пожалуйста с задачкой, на вид не сложная, но со строками я не очень дружу. Дана строка, например "Имя Фамилия", нужно поменять местами слова в строке. 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	28.02.2010, 18:53	2
	начиная с конца строки перебери все слова и запиши их в другу строку вот и все 0

@WhiteBear 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 3
	28.02.2010, 19:49 [ТС]	3
	Простите, а как это выглядит на Паскале?) 0

	28.02.2010, 20:12

Опции темы