每一本正式出版的圖書都有乙個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...