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.

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

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

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