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

0 bình luận về “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”

1. var s: string;

          i: byte;

   Begin

      Write(‘nhap xau: ‘); readln(s);

      For i:=length(s) downto 1 do

           Write(s[i]);

      Readln

   End.

   Bình luận

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

          

   Bình luận