nhập vào từ bàn phím 1 xâu không quá 100 kí tự . in ra màn hình xâu sau khi đã xóa bỏ tất cả các kí tự chữ cái

0 bình luận về “nhập vào từ bàn phím 1 xâu không quá 100 kí tự . in ra màn hình xâu sau khi đã xóa bỏ tất cả các kí tự chữ cái”

1. uses crt;
   var s:string;
       i:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      while i<=length(s) do
      begin
         if (s[i] in [‘A’..’z’]) then 
         begin
            delete(s,i,1);
            dec(i);
         end;
         inc(i);
      end;
      write(‘Xau ket qua la: ‘,s);
      readln
   end.

   Bình luận