viết chương trình nhập vào 1 xâu bất kì gồm chữ cái và những số đếm xem trong xâu đó có bao nhiêu chữ cái và số

0 bình luận về “viết chương trình nhập vào 1 xâu bất kì gồm chữ cái và những số đếm xem trong xâu đó có bao nhiêu chữ cái và số”

1. uses crt;

   var s:string;

       i,d1,d2:byte;

   BEGIN

           clrscr;

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

           d1:=0; d2:=0;

           for i:=1 to length(s) do

           if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then

                   inc(d1)

           else if s[i] in [‘0’..’9′] then inc(d2);

           write(‘Co ‘,d1,’ chu cai,’,d2,’ chu so’);

           readln

   END.

   Chúc bạn học tốt!

   Bình luận

2. program demchu_so;

   uses crt;

   var s:string;

         i,dc,ds:byte;

   begin

       clrscr;

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

       dc:=0;  ds:=0;

       for i:=1 to length(S) do

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

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

       write(‘Trong xau co tat ca ‘,dc,’ chu cai va ‘,ds,’ chu so’);

       readln;

   end.

   Bình luận