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...
Dãn cách tên bằng dấu phẩy(,).
