记录编号 75941 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]数字反转 最终得分 100
用户昵称 Gravatarjust now 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-10-29 18:30:00 内存使用 0.17 MiB
显示代码纯文本
  1. var
  2. n,i,j,l,zui:longint;
  3. s:ansistring;
  4. begin
  5. assign(input,'reverse.in');
  6. reset(input);
  7. assign(output,'reverse.out');
  8. rewrite(output);
  9. readln(s);
  10. if s[1]='-' then
  11. write('-');
  12.  
  13. if s= '0' then
  14. begin
  15. writeln(0);
  16. close(input);
  17. close(output);
  18. halt;
  19. end;
  20. l:=length(s);
  21. for i:=l downto 1 do
  22. begin
  23. if s[i]<>'0' then
  24. break;
  25. end;
  26. zui:=i;
  27. for i:=zui downto 2 do
  28. write(s[i]);
  29. if (s[1]<>'-') and (s[1]<>'0')then
  30. writeln(s[1]);
  31. close(input);
  32. close(output);
  33. end.