cho một xây ký tự và thông báo ra màn hình các từ đảo ngược vd ngon ngu nogn ugn

program dao_tu;

uses crt;

var s,st:string;

      i,j:byte;

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(s);

       i:=1;  st:=”; s:=s+’ ‘;

       while i<=length(S) do

              begin

                     if s[i]=’ ‘ then

                            begin

                                   for j:=length(st) downto 1 do write(st[j]);

                                   write(‘ ‘);

                                   st:=”;

                            end

                     else st:=st+s[i];

                     i:=i+1;

              end;

       readln;

end.