Viết chương trình nhập 1 xâu từ bàn phím, đếm số lượng kí tự là chữ số có trong xâu vừa nhập

0 bình luận về “Viết chương trình nhập 1 xâu từ bàn phím, đếm số lượng kí tự là chữ số có trong xâu vừa nhập”

1. program dem_so;

   uses crt;

   var s:string;

        i,d:byte;

   begin

          clrscr;

          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(‘Co ‘,d,’ ki tu la chu so’);

          readln;

   end.

   Bình luận

2. var s: string;

          i, d: byte;

   begin

          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(‘Co ‘, d, ‘ ki tu la chu so’);

          readln

   end.

    

    

   Bình luận