發表新討論
#8914: 为何错


lsxujie (许洁)

a307. NOIP2011 1.数字反转 -- NOIP 2011 普及组 第一题 | From: [222.66.36.254] | 發表日期: 2014-06-27 14:46
var
  n,ans:longint;
begin
  readln(n);
  ans:=0;
  while (n*-1>0) or (n>0) do begin
    ans:=ans*10+n mod 10;
    n:=n div 10;
  end;
  writeln(ans);
  readln;
end.
#10087: Re:为何错


xujieyi2003 (华二 徐介已)

a307. NOIP2011 1.数字反转 -- NOIP 2011 普及组 第一题 | From: [61.170.133.133] | 發表日期: 2015-07-26 18:09
AC
var
  n,ans:longint;
begin
  readln(n);
  ans:=0;
  while (n*-1<>0) or (n<>0) do begin
    ans:=ans*10+n mod 10;
    n:=n div 10;
  end;
  writeln(ans);
  readln;
end.


ZeroJudge Forum