NOIP2011复赛普级组 数字反转

解题思路： 先读入字符串，然后判断它是不是负数，然后按要求输出，并且把开头的 ’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

转载时必须以链接形式注明原始出处及本声明。