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}
