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

Формулировка задачи:

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

Код к задаче: «Поменять местами первое и последнее слово - Turbo Pascal»

textual
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.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы