Đăng nhập để hỏi chi tiết
34
26
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var s,p: string;
i: integer;
begin
clrscr;
readln(s);
for i:=length(s) downto 1 do p:=p+s[i];
if p=s then write(1) else write(p);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin