Viết chương trình in ra màn hình các chữ cái trong xâu, Nếu không có in ra dòng thông báo “khong co ky tu nao la chu cai trong xau”

0 bình luận về “Viết chương trình in ra màn hình các chữ cái trong xâu, Nếu không có in ra dòng thông báo “khong co ky tu nao la chu cai trong xau””

1. program xau;
   uses crt;
   var s:String;
       kt: Boolean;
       i: Byte;
       th: set of char;
   begin
     clrscr;
     th:=[‘1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’];
     write(‘nhap xau: ‘); readln(s);
     kt:=false;
     for i:=1 to length(s) do if s[i] in th then
          begin
              write(s[i],’ ‘);
              kt:=true;
          end;
     if kt=false then write(‘khong co ky tu nao la chu cai trong xau’);
     readln;
   end.

   Bình luận