Trắc Nghiệm:

1.A

2.A

3.C

4.B

5.A

6.C

7.A

8.D

Tự luận 

1/

Đáp án là x=2

2/

Program BTH;
uses crt;
var s1,s2:string;
i,n:longint;
begin
    clrscr;
    write('Nhap xau 1: '); readln(s1);
    write('Nhap xau 2: '); readln(s2);
    i:=length(s1);
    n:=length(s2);
    if i>n then
    begin
        writeln('Xau 1 dai hon xau 2');
        writeln('Xau 1 co ',i,' tu');
    end
        else if n>i then
            begin
                writeln('Xau 2 dai hon xau 1');
                writeln('Xau 2 co ',n,' tu');
            end
        else
            begin
                writeln('Do dai hai xau bang nhau');
                writeln('Do dai 2 xau la: ',i);
            end;
    readln;
end.

Tự Luận

Câu 1:

Kết quả in ra màn hình: 2

Câu 2:

program oken;
uses crt;
var s1,s2:string;
    i,y:byte;
begin
        clrscr;
        write('nhap xau thu 1: '); readln(s1);
        write('nhap xau thu 2: '); readln(s2);
        i:=length(s1); y:=length(s2);
        if i>y then
                begin
                        writeln('xau 1 dai hon xau 2');
                        writeln('xau 1 co ',i,' tu');
                end
        else if y>i then
                begin
                        writeln('xau 2 dai hon xau 1');
                        writeln('xau 2 co ',y,' tu');
                end
             else
                begin
                        writeln('2 xau co do dai bang nhau');
                        writeln('do dai 2 xau : ',i);
                end;
        readln;
end.

Trắc Nghiệm:

1A

2A

3C

4B

5A

6C

7A

8D