【模拟】[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.