记录编号 86645 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]数字反转 最终得分 100
用户昵称 Gravatar明天 是否通过 通过
代码语言 Pascal 运行时间 0.078 s
提交时间 2014-01-27 11:41:29 内存使用 0.17 MiB
显示代码纯文本
program cojs623;
var
  s1,s2:string;
  p,len,i:longint;
procedure zhuan;
var
  i:longint;
begin
  len:=length(s1);
  for i:=1 to len do
    s2[i]:=s1[len-i+1];
end;
begin
assign(input,'reverse.in');reset(input);
assign(output,'reverse.out');rewrite(output);
  readln(s1);

  if s1[1]='-' then
  begin
    delete(s1,1,1);
	write('-');
	zhuan;
  end else zhuan;

  p:=1;
  while (p<len)and(s2[p]='0') do inc(p);
  for i:=p to len do
    write(s2[i]);
  writeln;
close(input);close(output);
end.