BÀI 1: Viết chương trình nhập vào xâu S1 có độ dài tối đa 100. Hãy đếm xem có bao nhiêu kí tự ‘A’ có trong xâu đó rồi đưa kết quả ra màn hình. . BÀI 2: Viết chương trình nhập vào xâu S2 có độ dài tối đa 120. Hãy đếm xem có bao nhiêu kí tự ‘B’ có trong xâu đó rồi đưa kết quả ra màn hình

Bài 1:

Program BTT;
Uses crt;
Var St: String;
    d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d:=0;
        For i:=1 to length(St) do
                If St[i]='A' then inc(d);
        Write(d);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var St: String;
    d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d:=0;
        For i:=1 to length(St) do
                If St[i]='B' then inc(d);
        Write(d);
        Readln
End.

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