VCT Nhập vào xâu bất kì từ bàn phím. Sau đó in ra màn hình xâu đảo ngược và đã loại bỏ dấu cách có trong xâu. Tin Hoc 123

0 bình luận về “VCT Nhập vào xâu bất kì từ bàn phím. Sau đó in ra màn hình xâu đảo ngược và đã loại bỏ dấu cách có trong xâu. Tin Hoc 123”

1. program TIn_hoc;

   uses crt;

   var i:integer;

         s1,s2:string;

   begin

   clrscr;

   writeln(‘Nhap xau:’);readln(s1);

   s2:=”;

   for i:= length(s1) downto 1 do if ord(s1[i]) <> 32 then s2:= s2 + s1[i];

   writeln(‘Xau dao nguoc da loai bo dau cach:’);writeln(s2);

   readln;

   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var St: String;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           For i:=1 to length(St) do
                   If St[i]=#32 then Delete(St,i,1);
           For i:=length(St) downto 1 do Write(St[i]);
           Readln
   End.

   Bình luận