×
解除綁定,重新設定系統帳號的密碼
您的系統帳號 ID:
您的系統帳號:
您的帳號暱稱:
設定新密碼:
設定新密碼:
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#8914:
lsxujie
(许洁)
學校 : 上海市娄山中学
編號 : 40597
×
傳送站內訊息
傳給:
主題:
內容:
來源 : [222.66.36.252]
最後登入時間 :
2016-05-20 15:34:29
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
(华二 徐介已)
學校 : 上海市娄山中学
編號 : 50360
×
傳送站內訊息
傳給:
主題:
內容:
來源 : [58.37.83.0]
最後登入時間 :
2016-11-02 20:06:43
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