1c. 2b 3(đề sai 100%). 4b. 5b. 6c. 7d. 8d. 9d. 10c. 11c. 12a. 13a. 14b. 15a. 16a. 17a. 18(đề sai, đáp án là 'hocn'). 19c. 20d. 21b. 22b. 23c

Câu 24: 

Công việc là tìm giá trị lớn nhất, giá trị bé nhất của mảng số.

D1 lưu giá trị bé nhất, d2 lưu giá trị lớn nhất

Câu 25

var s1, s2: string;

    i: byte; kt: boolean;

Begin

    Write('nhap xau s1 :'); readln(s1);

    Write('nhap xau s2 :'); readln(s2);

    Kt:= true;

    If length(s2)<>length(s1) then kt:=false

    For i:=1 to length(s1) do

        If s1[i]<>s2[length(s1)-i] then

            Kt:=false;

    If kt:=true then write('s1 là xâu đảo của s2') else write('s1 không là xâu đảo của s2');

    Readln

End.

{GM Kiet}