解题思路: 先读入字符串,然后判断它是不是负数,然后按要求输出,并且把开头的 ’0’ 省略。 程序: var s:ansistring; len,i,j:longint; begin readln(s); len:=length(s); i:=len; if s[1]<>'-' then begin while (s[i]='0') and (i>1) do dec(i); for j:=i downto 1 do write(s[j]); end else begin while (s[i]='0') and (i>1) do dec(i); write('-'); for j:=i downto 2 do write(s[j]); end; end. 版权属于: Chris 原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v6t9.html 转载时必须以链接形式注明原始出处及本声明。