[0608] Noip2011 普及组 Problem 1数字反转
2012-06-08 19:05
267 查看
题目描述
给定一个整数,请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形
式,即除非给定的原数为零,否则反转后得到的新数的最高位数字不应为零(参见样例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.
给定一个整数,请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形
式,即除非给定的原数为零,否则反转后得到的新数的最高位数字不应为零(参见样例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.
相关文章推荐
- noip2011普及组复赛——数字反转
- NOIP 2011 普及组 复赛 reverse 数字反转
- 【模拟】[NOIP2011普及组]数字反转
- noip2011普及组——数字反转
- NOIP2011-普及组复赛-第一题-数字反转
- 【模拟】[NOIP2011普及组]数字反转
- 【NOIP2011普及组真题】数字反转
- luogu1307 数字反转(NOIP2011普及组第1题)
- noip2011数字反转
- [0608]NOIP 2009 普及组 Problem1 多项式输出
- 数字反转 2011年NOIP全国联赛普及组
- NOIP2011复赛普级组&nbsp;数字反转
- NOIP 2011 - 普及组 瑞士轮 归并排序 重庆一中高2018级竞赛班第四次测试 2016.7.25 Problem 4
- noip2011 数字反转 (模拟)
- NOIP2011复赛普级组&nbsp;数字反转
- NOIP 数字反转
- noip2011普及组:统计单词
- NOIP2010普及组--数字统计
- noip2011普及组——统计单词数
- <NOIP> 19 . P1553 数字反转(升级版)