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.

Bài 3:

program Tin_Hoc;

uses crt;

var i,k:integer;

      S3 : string [130];

Begin

clrscr;

writeln('Nhap xau S3:');readln(S3);

k:=0;

for i:= 1 to length(S3) do if S3[i] in ['0'..'9'] then inc(k);

writeln('Trong xau S3 co ',k,' ki tu la chu so');

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,k:integer;

      S4 : string [140];

Begin

clrscr;

writeln('Nhap xau S4:');readln(S4);

k:=0;

for i:= 1 to length(S4) do if S4[i] = 0 then inc(k);

writeln('Trong xau S4 co ',k,' ki tu la chu so 0');

readln;

end.

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 3:

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] in ['0'..'9'] then inc(d);
        Write(d);
        Readln
End.

Bài 4:

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]='0' then inc(d);
        Write(d);
        Readln
End.