cho 1 xâu A được nhập từ bàn phím viết chương trình tạo một xâu mới theo thứ tự là dãy các chữ của xâu A

0 bình luận về “cho 1 xâu A được nhập từ bàn phím viết chương trình tạo một xâu mới theo thứ tự là dãy các chữ của xâu A”

1. uses crt;
   var A,A1:string;
       i:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(A);
      for i:=1 to length(A) do
      if (‘A'<=A[i]) and (‘z’>=A[i]) then A1:=A1+A[i];
      write(‘Xau ki tu la: ‘,A1);
      readln
   end.

   Bình luận