viết chương trình nhập từ bàn phím xâu kí tự s có độ dài không quá 150. hãy cho biết độ dài của xâu và có bao nhiêu chữ a nhỏ xuất hiện trong xâu s . thông báo kết quả ra màn hình?
2 câu trả lời
program chu_a;
uses crt;
var s:string[150];
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]='a' then d:=d+1;
write('Co ',d,' chu a trong xau ',s);
readln;
end.
uses crt;
var s:string[150]; i,d:byte;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i]='a' then inc(d);
writeln(d);
readln;
end.
