Плз помогите , решительно задачу как нибуть по проще . ** языке pascal

Question

Плз помогите , решительно задачу как нибуть по проще . на языке pascal

---

Comments

"программа предлагает", тебе это тоже надо? Чтобы предлагала?

---

Нет

---

Просто что бы меняла слова местамм

Answer 1

Begin readstring().ToWords.Reverse.Print end.

Comments

begin ReadString().ToWords.Reverse.Print end.

---

А иначе Вы занесете в s результат вызова Print. Он будет, мягко говоря, неожиданным.

Answer 2

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.