每一本正式出版的圖書都有乙個isbn號碼與之對應，isbn碼包括9位數字、1位識別碼和3位分隔符，其規定格式如「x-***-***xx-x」，其中符號「-」就是分隔符（鍵盤上的減號），最後一位是識別碼，例如0-670-82162-4就是乙個標準的isbn碼。isbn碼的首位數字表示書籍的出版語言，例如0代表英語；第乙個分隔符「-」之後的三位數字代表出版社，例如670代表維京出版社；第二個分隔符後的五位數字代表該書在該出版社的編號；最後一位為識別碼。
識別碼的計算方法如下：
首位數字乘以1加上次位數字乘以2……以此類推，用所得的結果mod 11，所得的餘數即為識別碼，如果餘數為10，則識別碼為大寫字母x。例如isbn號碼0-670-82162-4中的識別碼4是這樣得到的：對067082162這9個數字，從左至右，分別乘以1，2，...,9,再求和，即0×1+6×2+……+2×9=158，然後取158 mod 11的結果4作為識別碼。
你的任務是編寫程式判斷輸入的isbn號碼中識別碼是否正確，如果正確，則僅輸出「right」；如果錯誤，則輸出你認為是正確的isbn號碼。
輸入格式：
輸入檔案isbn.in只有一行，是乙個字串行，表示一本書的isbn號碼（保證輸入符合isbn號碼的格式要求）。
輸出格式：
輸出檔案isbn.out共一行，假如輸入的isbn號碼的識別碼正確，那麼輸出「right」，否則，按照規定的格式，輸出正確的isbn號碼（包括分隔符「-」）。
【輸入樣例1】
0-670-82162-4
【輸入樣例2】
0-670-82162-0
【輸出樣例1】
right
【輸出樣例2】
0-670-82162-4
var
s:string;
i,j,sum:longint;
d:array[1..9] of longint;
begin
assign(input,'in.txt');
reset(input);
readln(s);
j:=0;
for i:=1 to length(s) do
begin
if s[i]='-' then continue;
inc(j);
d[j]:=ord(s[i])-ord('0');
//writeln(d[j]);
end;
for i:=1 to 9 do
begin
sum:=sum+d[i]*i;
end;
if (sum mod 11=d[10]) or (sum mod 11=10) and (s[13]='x') then writeln('right')
else
begin
d[10]:=sum mod 11;
for i:=1 to 10 do
begin
if (i=2) or (i=5) or (i=10) then write('-');
if (i=10) and (d[i]=10) then write('x')
else write(d[i]);
end;
end;
end.
國際資訊學奧林匹克競賽 IOI
1987年，保加利亞的sendov教授在聯合國教科文組織第24屆全體會議上，倡議舉行國際資訊學奧林匹克，定名為international olympiad in informatics，簡稱ioi。首屆ioi於1989年5月在保加利亞首都索菲亞舉行。資訊學奧林匹克是計算機知識在世界範圍的青少年中普及...
資訊學奧林匹克競賽 運輸層協議
運輸層最重要的兩種協議 udp和tcp 運輸層向它上面的應用層提供通訊服務 從運輸層的角度看，通訊的真正端點並不是主機而是主機中的程序。運輸層的功能 復用 multiplexing 在傳送方不同的應用程序都可以使用同乙個運輸層協議傳送資料 分用 dumultiplexing 接收方的運輸層在剝去報文...
資訊學奧林匹克競賽 網路各層裝置
網路各層裝置 一層裝置 中繼器 repeater 集線器 hub 主要功能就是對訊號進行放大和整形。我們可以認為這樣滴裝置就是一條線纜一樣。那麼只 不過這條線纜具有訊號滴放大和整形滴作用 在匯流排型網路中，避免衝突滴方式是一種叫做csma cd滴東東 二層裝置 網橋 bridge 交換機 switc...