Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được kết quả giống như đọc trái sang phải (còn được gọi xâu palindrome).
Quảng cáo
2 câu trả lời 222
program vd2;
uses crt;
var
i,x:byte;
a,p:string;
begin
clrscr;
write(‘nhapxau’);
readln(a);
x:=length(a);
p:=’’;
for i:=x downto 1 do
p:=p+a[i];
if a=p then
write(‘xau la palindrome’)
else
write(‘xau khong phai la palindrome’);
readkey;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149631 -
Đã trả lời bởi chuyên gia
99998 -
Đã trả lời bởi chuyên gia
97612 -
Đã trả lời bởi chuyên gia
80300 -
Đã trả lời bởi chuyên gia
73097 -
Đã trả lời bởi chuyên gia
56190 -
Đã trả lời bởi chuyên gia
55568
Gửi báo cáo thành công!
