viết chương trình nhập vào 1 xâu bất kì , xuất ra màn hình số lượng kí tự số trong xâu đã nhập. các bn giúp mình bài này với:(

0 bình luận về “viết chương trình nhập vào 1 xâu bất kì , xuất ra màn hình số lượng kí tự số trong xâu đã nhập. các bn giúp mình bài này với:(”

1. program xau;

   uses crt;

   var s:String;

       i, d: Byte;

       th: set of char;

   begin

     clrscr;

     th:=[‘1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’];

     write(‘nhap xau: ‘); readln(s);

     d:=0;

     for i:=1 to length(s) do if s[i] in th then 

            inc(d);

     writeln(‘so luong chu so: ‘, d);

     readln;

   end.

   {GM Kiet}

   Bình luận

2. uses crt;
   var s:string;
   begin
   clrscr;
      write(‘Nhap mot xau: ‘);readln(s);
      writeln(‘So luong ki tu trong xau da nhap: ‘,length(s));
   readln
   end.

   Bình luận