Viết chương trình nhập vào một xâu và cho biết xâu đó gó bao nhiêu 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 và cho biết xâu đó gó bao nhiêu kí tự là chữ số?”

1. program bt;

   uses crt;

   var a: string;

         i, x, so: byte;

   begin

     clrscr;

     write(‘Nhap xau a:’); readln(a);

     x:= length(a);

     for i := 1 to x do if a[i] in [‘0’..’9′] then so := so + 1;

     writeln(‘Co’, so ,’ki tu la so trong xau’);

     readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Bình luận

2. program _dem_chu_so;

   uses crt;

   var s:string;

         i,d:byte;

   begin

          clrscr;

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

          d:=0;

          for i:=1 to n do

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

          write(‘Co ‘,d,’ ki tu la chu so’);

          readln;

   end.

   Bình luận