数字反转（新）

题目描述

给定一个数，请将该数各个位上数字反转得到一个新数。

这次与NOIp2011普及组第一题不同的是：这个数可以是小数，分数，百分数，整数。整数反转是将所有数位对调；小数反转是把整数部分的数反转，再将小数部分的数反转，不交换整数部分与小数部分；分数反转是把分母的数反转，再把分子的数反转，不交换分子与分母；百分数的分子一定是整数，百分数之改变数字部分。整数新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零；小数新数的末尾不为0（除非小数部分除了0没有别的数，那么只保留1个0）；分数不约分，分子和分母都不是小数（约分滴童鞋抱歉了，不能过哦。输入数据保证分母不为0），本次没有负数。

输入输出格式

输入格式：

一个数s

输出格式：

一个数，即s的反转数

输入输出样例

输入样例#1：

①
5087462
②
600.084
③
700/27
④
8670%

输出样例#1：

①
2647805
②
6.48
③
7/72
④
768%

说明

所有数据：25%s是整数，不大于20位

25%s是小数，整数部分和小数部分均不大于10位

25%s是分数，分子和分母均不大于10位

25%s是百分数，分子不大于19位

（20个数据）

var
 s,ss,sss:string;
 i,x,j,sj,len:longint;
begin
 read(s);
 len:=length(s);
 if pos('.',s)<>0 then begin j:=pos('.',s); sj:=1 end
                  else if pos('/',s)<>0 then j:=pos('/',s)
                                        else if pos('%',s)<>0 then j:=pos('%',s);
 if s[1]='-' then begin
                   write('-');
                   delete(s,1,1);
                  end;
 if j=0 then
  for i:=length(s) downto 1 do
   begin
    if s[i]<>'0' then inc(x);
    if x>0 then write(s[i]);
    if (i=1) and (x=0) then write(0);
   end;
 if j<>0 then
  begin
   ss:=copy(s,1,j-1);
   sss:=copy(s,j+1,len);
   for i:=length(ss) downto 1 do
    begin
     if ss[i]<>'0' then inc(x);
     if x>0 then write(ss[i]);
     if (i=1) and (x=0) then write(0);
    end;
   x:=0;
   write(s[j]);
   if sj>0 then
    for i:=1 to length(sss) do
     begin
      if sss[1]<>'0' then inc(x);
      if x=0 then delete(sss,1,1)
             else break;
     end;
   for i:=length(sss) downto 1 do
    begin
     if sss[i]<>'0' then inc(x);
     if x>0 then write(sss[i]);
     if (i=1) and (x=0) then write(0);
    end;
   if (i=0) and (sj>0) then write(0);
  end;
end.