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.
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
