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

@evda94 · Регистрация: 22.12.2013

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

Помогите написать программу.
"Поменяйте местами первое и последнее слово"
(ввод строк организуйте в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел)

@antibenzin · 23.12.2013, 20:55

Pascal

var s,w1,w2:string;
i:byte;
begin
w1:=''; w2:='';
readln(s);
i:=1;
while s[i]<>' ' do
begin
w1:=w1+s[i];
inc(i);
end;
delete(s,1,length(w1));
i:=length(s);
while s[i]<>' ' do
begin
w2:=s[i]+w2;
dec(i);
end;
delete(s,i+1,length(w2));
writeln(w2+s+w1);
end.

@evda94 0 / 0 / 0 Регистрация: 22.12.2013 Сообщений: 12
		1
	Поменять местами первое и последнее слово 23.12.2013, 20:11. Показов 2796. Ответов 1 Метки нет (Все метки) Помогите написать программу. "Поменяйте местами первое и последнее слово" (ввод строк организуйте в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел) 0

	23.12.2013, 20:55

Опции темы

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

Решение