Program BTT; Uses crt; Var S: String; i,d: longint; Begin Clrscr; Write('Nhap S: '); Readln(S); d:=0; For i:=1 to length(S) do If S[i]='A' then inc(d); Write('Co ',d,' ky tu A'); Readln End.
Program bt; Uses crt; Var S: String; i,d: integer; Begin Clrscr; Write('Nhap S: '); Readln(S); d:=0; For i:=1 to length(S) do If S[i]='A' then inc(d); Write('Co ',d,' ky tu A trong xau S'); Readln; End.