Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

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