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);
            i:=i-1;
         end;
         i:=i+1;
      end;
      write(‘Xau ket qua la: ‘,s);
      readln
   end.

   Bình luận

2. uses crt;

   var i:integer;

         s1,s2:string[100];

   begin

   clrscr;

   writeln(‘Nhap xau khong qua 100 ki tu:’);readln(s1);

   s2:=”;

   for i := 1 to length(s1) do

   if (ord(s1[i]) in [’32’..’64’]) or (ord(s1[i]) in [’91’..’96’]) or (ord(s1[i]) in [‘123’..’126′]) then s2:=s2+s1[i];

   writeln(‘Xau da xoa tat ca cac ki tu chu cai:’);writeln(s2);

   readln;

   end.

   Bình luận