viết ct nhập vào xâu s in ra màn hình đếm số kí tự chữ cái , chứ số trong xâu s s: ‘ abc123dej’ d chữ =6. dso =3.

0 bình luận về “viết ct nhập vào xâu s in ra màn hình đếm số kí tự chữ cái , chứ số trong xâu s s: ‘ abc123dej’ d chữ =6. dso =3.”

1. program dem_Soluong;

   uses crt;

   var s:string;

         i,ds,dc:byte;

   begin

          clrscr;

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

          dc:=0;  ds:=0;

          for i:=1 to length(s) do

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

                 else if (s[i] in [‘a’..’z’]) and (s[i] in [‘A’..’Z’]) then dc:=dc+1;

          writeln(‘So luong chu cai la: ‘,dc);

          writeln(‘So luong chu so la: ‘,ds);

          readln

   end.

   Bình luận

2. uses crt;
   var s:string; i,d,d1:longint;
   begin
   clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
         begin
            if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then inc(d);
            if s[i] in [‘0’..’9′] then inc(d1);
         end;
      writeln(‘Dchu: ‘,d);
      writeln(‘Dso: ‘,d1);
   readln
   end.

   Bình luận