Viết chương trình nhập vào một xâu s1 tạo xâu s2 gồm tất cả các kí tự trong xâu s loại trừ các kí tự là chữ số

0 bình luận về “Viết chương trình nhập vào một xâu s1 tạo xâu s2 gồm tất cả các kí tự trong xâu s loại trừ các kí tự là chữ số”

1. program tin_hoc;

   uses crt;

   var i:integer;

         s1,s2:string;

   begin

   clrscr;

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

   s2:=”;

   for i := 1 to length(s1) do if (s1[i] in [‘a’..’z’]) or (s1[i] in [‘A’..’Z’]) then s2:=s2+s1[i];

   writeln(‘Xau s2:’,s2);

   readln;

   end.

   Bình luận