Bài 1:
program Tin_hoc;
uses crt;
Var i,k:integer;
S1 : string [100];
Begin
clrscr;
writeln('Nhap xau S1:');readln(S1);
k:=0;
for i:= 1 to length(S1) do if ord(S1[i]) = 65 then inc(k);
writeln('Trong xau S1 co ',k,' ki tu A');
readln;
end.
Bài 2:
program Tin_hoc;
uses crt;
Var i,k:integer;
S2 : string [120];
Begin
clrscr;
writeln('Nhap xau S2:');readln(S2);
k:=0;
for i:= 1 to length(S2) do if ord(S2[i]) = 66 then inc(k);
writeln('Trong xau S2 co ',k,' ki tu B');
readln;
end.
Nhớ cho mik là câu trả lời hay nhất nha