Viết chương trình xây dựng thủ tục đếm số lượng kí tự chữ số trong xâu Giúp em với ạ :v Thanks :3

0 bình luận về “Viết chương trình xây dựng thủ tục đếm số lượng kí tự chữ số trong xâu Giúp em với ạ :v Thanks :3”

1. program ct;

   uses crt;

   var S:string;

         dem,i:integer;

   begin clrscr;

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

      for i:=1 to length(S) do

        if (S[i]>=’0′) and (S[i]<=’9′) then inc(dem);

      write(‘So luong ky tu chu so trong xau: ‘,dem);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;
   var s:string; i,dem:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
      if (s[i]>=’0′) and (s[i]<=’9′) then inc(dem);
      write(‘So luong ky tu chu so trong xau la: ‘,dem);
      readln
   end.

   Bình luận