×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#10054: 帮我看看咋么改
996syf
(七宝三中沈昱飞)
學校:
上海市娄山中学
編號:
50375
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[218.242.227.167]
註冊時間:
2015-06-27 10:40:49
最後登入時間:
2016-01-23 11:02:41
a053.
Sagit's 計分程式
--
Sagit's 教學題
| From: [101.224.96.16] | 發表日期: 2015-07-18 15:40
#10055: Re:帮我看看咋么改
996syf
(七宝三中沈昱飞)
學校:
上海市娄山中学
編號:
50375
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[218.242.227.167]
註冊時間:
2015-06-27 10:40:49
最後登入時間:
2016-01-23 11:02:41
a053.
Sagit's 計分程式
--
Sagit's 教學題
| From: [101.224.96.16] | 發表日期: 2015-07-18 15:43
var
a:byte;
begin
while not eof do begin
readln(a);
if a>0 or a<=10 then writeln(a*6);
if a>10 or a<=20 then writeln((a-10)*2+10*6);
if a>20 or a<=40 then writeln(10*6+10*2+(a-20)*1);
if a>40 then writeln(100);
end;
end.