program Min; var s:string; i,dem:integer; begin write('Nhap xau: '); readln(s); for i:=1 to length(s) do S[i]:=upcase(S[i]); for i:=1 to length(s) do if copy(s,i,3)='A' then inc(dem);
writeln('So tu "A" xuat hien trong xau la: ',dem); readln end. P/S : Không biết bạn có yêu cầu phân biệt chữ hoa hay chữ thường không nhỉ : ?
uses crt; var st : string; i, dem : integer; begin clrscr; write('Nhap xau :'); readln(st); for i:=1 to length(st) do if st[i]='A' then dem:=dem+1; write(dem); readln end.
