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

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