Viết chương trình nhập vào từ bàn phím xâu không quá 125 kí tự. Đếm và đưa ra màn hình số lượng kí tự là"a" hoặc"A" có trong xâu.

var s :string;

     i,a,b:integer;

begin

       write('nhap mot xau : '); readln(s); 

       a:=0;

       b:=0;

       for i:=1 to length(s) do 

              begin

                     if s[i]='A' then a:=a+1;

                     if s[i]='a' then b:=b+1;

               end;

         write('xau co ',a,' ki tu A va co ',b,' ki tu a');

readln;

end.

var s :string;

i,a,b:integer;

begin

write(‘nhap mot xau : ‘); readln(s); 

a:=0;

b:=0;

for i:=1 to length(s) do 

begin

if s[i]=’A’ then a:=a+1;

if s[i]=’a’ then b:=b+1;

end;

write(‘xau co ‘,a,’ ki tu A va co ‘,b,’ ki tu a’);

readln;

end.