P1055 ISBN号码

题目描述

每一本正式出版的图书都有一个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.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。

输出格式：

输出文件isbn.out共一行，假如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。

输入输出样例

输入样例#1：

0-670-82162-4

输出样例#1：

Right

输入样例#2：

0-670-82162-0

输出样例#2：

0-670-82162-4

说明

2008普及组第一题

var

s:string;

a:array[0..20]of integer;

i,j,sum:longint;

f:boolean;

begin

readln(s);

f:=true;

for i:=1tolength(s)-1do

if s[i]<>'-' then

begin

inc(j);

a[j]:=ord(s[i])-48;//转换并储存数字

sum:=sum+a[j]*j;//为识别码做铺垫

end;

sum:=sum mod11;//识别码

if (sum=10) and (s[length(s)]='X') or ((ord(s[length(s)])-48)=sum)then//当识别码为10和X或者正常识别码相符输出

begin

writeln('Right');

f:=false;

end;

if f then//如果没有输出就输回去

begin

for i:=1tolength(s)-1dowrite(s[i]);

if sum=10thenwriteln('X')//同样是是X的情况

elsewriteln(sum);

end;

end.