一生悬命

人若无名,便可专心练剑。

信息学奥林匹克竞赛-数字反转

给定一个整数,请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式,即除非给定的原数为零,否则反转后得到的新数的最高位数字不应为零(参见样例2)。


输入格式:
  输入文件名为reverse.in 。 
  输入共1 行,一个整数 N。
输出格式:
  输出文件名为reverse.out 。 
  输出共1行,一个整数,表示反转后的新数。


输入:123

输出:321


输入:-380

输出:-83


var
flag,n,sum:longint;

begin
	readln(n);
	flag:=1;
	if n<0 then
	begin
		n:=n*(-1);
		flag:=-1;
	end;
	sum:=0;
	while n>0 do
	begin
		sum:=sum*10;
		sum:=sum+n mod 10;
		n:=n div 10;
	end;
	writeln(sum*flag);
end.


阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载(不过这句话并没有什么*用) https://blog.csdn.net/sjtu081200/article/details/49929291
个人分类: Pascal基础
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭