1.
uses crt;
var s:string;i,t:byte;
BEGIN
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i]='A' then t:=t+1;
writeln(t);
readln
2.
uses crt;
var s,s1:string;t:integer;
BEGIN
clrscr;
readln(s,s1);
t:=length(s)+length(s1);
writeln(t);
readln
Câu 3 mình ko biết làm
Cho xin hay nhất mình sắp lên hạng rồi