NOIP2011复赛普级组 数字反转

数字反转" TITLE="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
转载时必须以链接形式注明原始出处及本声明。