记录编号 75941 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]数字反转 最终得分 100
用户昵称 Gravatarjust 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.