Trách nghiệm

15. A

16. C

17. D

18. C

19. E

20. Không có đáp án. (Kết quả của xâu X = nauT)

21. A

22. B

Tự luận

program phuongt;
uses crt;
  var s: string[50];
        i, d: integer;
begin
       clrscr;
       write('Nhap xau S: '); readln(s);
       for i:=1 to length(s) do if s[i]='A' then d:=d+1;
       write('Co ', d, ' ki tu "A" trong xau S');
       readln
end.

15. A. Hàm copy(S,P,L) Trisch dãy S một chuỗi con dài L kí tự bắt đầu từ vị trí P

16. C: Muốn nhập phần tử cho mảng A dùng vòng lập nhập từng phần tử từ A1 đến An. Và dùng lện Readln(A[i]);

17.D. Cách khai báo chuỗi kí tự:

Var  Ten_chuoi:String[Độ dài]

Không chọ C vì Độ dài tối đa của chuỗi là 255 kí tự.

18. D vì chương trình so sánh từng cập theo mã ASCII

19. E. Cả function và procedure đều là cách để khai báo chương trình con 

20A.

21. A Như em nói ở trên

22. B. Upcase(ch) đổi kí tựch thành chữ in hoa 

TỰ LUẬN

Program DemKiTu;

uses crt;

var S:string[50]

i,s1,n: qword;

BEGIN

clrscr;

Writeln('Nhap chuoi S');

read(S);

s1:=0;

n:=length(S);

i:=1;

while i< n do

begin

if S[i] ='A' the s1:=s1 +1;

i:=i+1

end;

Writeln('So lan A xuat hien la', s1);

readln;

END.