codevs 数字反转 1130

题目描述 Description 给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零. 输入描述 Input Description 输入共 1 行，一个整数N 输出描述 Output Description 输出共 1 行，一个整数，表示反转后的新数。 样例输入 Sample Input -380 样例输出 Sample Output

-83

代码：

var   s:ansistring;   j,i:longint; procedure init; begin   readln(s); end; procedure print; begin   if s[1]='-' then begin delete(s,1,1);write('-');end;   while (s[length(s)]='0') do delete(s,length(s),1);   for i:=length(s) downto 1 do     write(s[i]); end; begin   init;   print; end.