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.

Question

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.

halan · Answer

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.

0 bình luận về “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.”