记录编号 |
75941 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[NOIP 2011]数字反转 |
最终得分 |
100 |
用户昵称 |
just now |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.002 s |
提交时间 |
2013-10-29 18:30:00 |
内存使用 |
0.17 MiB |
显示代码纯文本
- var
- n,i,j,l,zui:longint;
- s:ansistring;
- begin
- assign(input,'reverse.in');
- reset(input);
- assign(output,'reverse.out');
- rewrite(output);
- readln(s);
- if s[1]='-' then
- write('-');
-
- if s= '0' then
- begin
- writeln(0);
- close(input);
- close(output);
- halt;
- end;
- l:=length(s);
- for i:=l downto 1 do
- begin
- if s[i]<>'0' then
- break;
- end;
- zui:=i;
- for i:=zui downto 2 do
- write(s[i]);
- if (s[1]<>'-') and (s[1]<>'0')then
- writeln(s[1]);
- close(input);
- close(output);
- end.