Viết chương trình nhập xâu S và đếm số lần xuất hiện của chữ a trong xâu S ( không phân biệt a hoa hay a thường)
2 câu trả lời
program xaus;
uses crt;
var s:string;
i,dem:byte;
begin clrscr;
write('Nhap xau s: '); readln(s);
for i:=1 to length(s) do
if s[i]='a' then inc(dem);
write('Co ',dem,' tu a trong xau');
readln;
end.
Học tốt!
uses crt;
var s:string;
i,dem:byte;
begin
clrscr;
write('Nhap xau s: '); readln(s);
for i:=1 to length(s) do
if (s[i]='a') or (s[i]='A') then inc(dem);
write('Co ',dem,' tu a trong xau');
readln
end.
Câu hỏi trong lớp
Xem thêm
