50分，求大神解答

循幻空 @ 2016-02-15 12:50:59

program exam;
var s:string;
    a:int64;
    i,j:integer;
begin
  readln(a);
  str(a,s);
  i:=length(s);
  while s[i]='0' do
        i:=i-1;
  for j:=i downto 1 do
      write(s[j]);
  readln;
end.
[/codep ]

by 循幻空 @ 2016-02-15 12:51:56

[h1 ]50分，求大神解答[/h1 ]

by lypbisheng @ 2016-02-15 14:45:37

@[url=/space/show?uid=7786]董劲豪[/url] 你这么写的话 负数输出的时候负号就在最后输出了 如样例中的 -380 你的程序会输出 83-

by 噬魂彡Pascal @ 2016-02-16 07:19:07

先判断是否为负数，是负数的话先输出符号“-”，然后for j:=i downto 2 输出

by 循幻空 @ 2016-02-20 12:43:55

@[url=/space/show?uid=15114]lypbisheng[/url] 谢谢！

by 循幻空 @ 2016-02-20 12:44:26

@[url=/space/show?uid=10064]噬魂彡Pascal[/url] 谢谢