Recent Content by love_iu2

Bạn dùng đệ qui này để tăng xâu lên một đơn vị nè procedure incstr(k:integer); begin if s[k]='9' then begin s[k]:'0'; incstr(k-1); end else s[k]:=char(ord(s[k])+1); end; Nhưng mà mình không dùng cái này để mỗi lần lặp rồi kiểm tra xâu này có đối xứng hay không, Nếu dùng như vậy chỉ...