标签：
每一本正式出版的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，其规定格式如“x-xxx-xxxxx-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号码（保证输入符合ISBN号码的格式要求）。
共一行，假如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。
输入1：
0-670-82162-4
输入2：
0-670-82162-0
输出1：
Right
输出2：
0-670-82162-4
题解：
字符串模拟。
把字符串上的每一位用他的方法累计出这个和mod 11的值，最后判断一下，如果对就输出“Right”，不一样就输出正确答案。
var i,ans,j:longint;
s:string;
begin
readln(s);
for i:=1 to length(s)-1 do
begin
if s[i]=‘-‘ then continue;
inc(j);
ans:=ans+(ord(s[i])-48)*j;
ans:=ans mod 11;
end;
if (s[length(s)]=‘X‘)and(ans=10)or(ord(s[length(s)])-48=ans) then
write(‘Right‘)
else
begin
delete(s,length(s),1);
if ans=10 then write(s,‘X‘)
else write(s,ans);
end;
end.
标签：
原文地址：http://www.cnblogs.com/huzhaoyang/p/5885599.html
