[0608] Noip2011 普及組 Problem 1數字反轉

 

題目描述
給定一個整數，請將該數各個位上數字反轉得到一個新數。新數也應滿足整數的常見形
式，即除非給定的原數為零，否則反轉后得到的新數的最高位數字不應為零（參見樣例2）。
【數據范圍】
-1,000,000,000 ≤ N≤ 1,000,000,000。
輸入格式
輸入共 1 行，一個整數N。
輸出格式
輸出共 1 行，一個整數，表示反轉后的新數。
Simple input & output
123
321

 

 

 

雙題解：

一個是純變量，一個是字符串做的，很顯然字符串支持高精度，所以字符串很優越。

var n:longint;
begin
   readln(n);
   if n<0 then write('-');
   n:=abs(n);
   if n=0 then write(0) else begin
      while (n mod 10=0) do n:=n div 10;
      while n>0 do begin
         write(n mod 10);
         n:=n div 10;
      end;
   end;
end.

 

var s:string;
    i,len:longint;
begin
  readln(s);
  if s[1]='-' then
     begin
       write('-');
       delete(s,1,1);
     end;
  len:=length(s);
  while (s[len]='0')do dec(len);
  for i:= len downto 1 do write(s[i]);
end.