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

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

1. uses crt;

   var s:string;

   a,b,c,i:longint;

   begin

   clrscr;

   readln(s);

   for i:-=1 to length(s) do

   begin 

   if s[i] in [‘A’..’Z’] then a:=a+1;

   if s[i] in [‘a’..’z’] then b:=b+1;

   if s[i]>’1′ and S[i]<‘9’ then c:=c+1;

   end;

   write(‘co’,a,’so ky tu hoa’);

   write(‘co ‘,b,’ky tu thuong’);

   write(‘co ‘,c,’ky tu so);

   readln

   end.

   bạn tham khảo nha

   chúc bạn học tốt 5 sao CLTHN 

   @huyhoang07

   Bình luận

2. Uses crt;

   var s:string;i,j:byte;

   BEGIN

   clrscr;

   Write(‘Nhap s: ‘);readln(s);

   for i:=1 to length(s) do

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

   writeln(‘So ky tu chu so la: ‘,j);

   readln

   END.

   Bình luận