pascal编程题目描述　　给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式，即除非给定的
1个回答

var

st:string;

t:char;

flag:boolean;

len,i:longint;

begin

readln(st);

if st[1] = '-' then

begin

flag:=true;

delete(st,1,1);

end

else flag := false;

len := length(st);

for i := 1 to len div 2 do

begin

t := st[i];

st[i] := st[len - i + 1];

st[len - i + 1] := t;

end;

while (st[1] = '0') and (length(st) > 1) do delete(st,1,1);

if flag then st := '-' + st;

writeln(st);

end.

相关问题