Viết chương trình nhập vào 1 xây kí tự kiểm tra và đưa ra màn hình số lượng kí tự A trong xây đó
2 câu trả lời
uses crt;
var s: string;
i, cnt: longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] = 'A' then inc(cnt);
writeln(cnt);
readln;
end.
uses crt;
var S : string; a, d : byte;
begin
clrscr;
write('Nhap xau S : '); readln(S);
for a := 1 to length(S) do
if S[a] = 'A' then d := d + 1;
write('Xau co ', d ,' ki tu A');
readln
end.
