Во вводимом тексте переписать все слова в обратном порядке.

[menlo]

Во вводимом тексте переписать все слова в обратном порядке.

[mihali4]

И где можно лицезреть, так сказать, ВАШ исходник?
Дабы помощь оказать (вы уж не подумайте чего дурного).

[Yogik™]

procedure TForm1.Button1.Click(Sender: TObject);
 VAR
     txt:  String;
 i,dlina:  Integer;
begin
 txt:=Edit1.Text;
 dlina:=Length(txt);
 Edit1.Text:='';
 for i:=dlina downto 1 do
 Edit1.Text:=Edit1.Text+txt[i];
end;

С такими "успехами" выпрут..

[PuzzleC]

На каком языкке?

Yogik™ помоему в своем примере ты не меняешь местами слова а выводишь введенную строку задом-наперед т.е меняешь символы

[menlo]

[QUOTE=PuzzleC;48907]На каком языкке?
Паскаль

[Abbatik]

uses crt;
var s1,s:string;
d:array[1..100] of string;
i,k:integer;
begin
clrscr;
write('Text:');
readln(s);
k:=1;
for i:=1 to length(s) do begin
if s[i]=' ' then k:=k+1 else d[k]:=d[k]+s[i];
end;
for i:=k downto 1 do begin
s1:=s1+d[i]+' ';
end;
writeln('Rezultat: ',s1);
readkey;
end.

Предпологаеися что все слова разделены пробелами.