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.
