Nhập vào 1 xâu bất kì từ bàn phím . đếm số lượng các kí tự là chữ số trong xâu và ghi vào tệp ” BT1.TXT”

0 bình luận về “Nhập vào 1 xâu bất kì từ bàn phím . đếm số lượng các kí tự là chữ số trong xâu và ghi vào tệp ” BT1.TXT””

1. program chuso;

   uses crt;

   var f:text;

         s:string;

        i,d:byte;

   begin

          clrscr;

          Assign(f,’BT1.TXT’);   rewrite(f);

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

          d:=0;

          for i:=1 to length(s) do

                 if s[i] in [‘0’..’9′] then d:=d+1;

          write(f,d);

          close(g);

   end.

   Bình luận

2. program xau;

   uses crt;

   var s:String;

       i, d: Byte;

       th: set of char;

       f: text;

   begin

     clrscr;

     assign(f, ‘BT1.TXT’); rewrite(f);

     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);

     write(f, d);

     close(f);

   end.

   {GM Kiet}

   Bình luận