【模拟】[NOIP2011普及组]数字反转

题目:[NOIP2011普及组]数字反转 rqnoj660

题目描述

给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形
式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零（参见样例2）。
【数据范围】
-1,000,000,000 ≤ N≤ 1,000,000,000。

输入格式

输入共 1 行，一个整数N。

输出格式

输出共 1 行，一个整数，表示反转后的新数。

样例输入

[sample 1] 123 [sample 2] -380

样例输出

[sample 1] 321 [sample 2] -83

 

Pascal Code

program rqnoj660;

var
  s:ansistring;

procedure init;
begin
  assign(input,'rqnoj660.in');
  assign(output,'rqnoj660.out');
  reset(input);
  rewrite(output);
end;

procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
begin
  readln(s);
end;

procedure main;
var
  i:longint;
begin
  if length(s)=1 then
  begin
    write(s);
    outit;
  end;
  if s[1]='-' then
  begin
    write('-');
    delete(s,1,1);
  end;
  while s[length(s)]='0' do
    delete(s,length(s),length(s));
  for i:=length(s) downto 1 do
    write(s[i]);
end;


begin
  init;
  readdata;
  main;
  outit;
end.