2008年分区联赛普级组第一题 ISBN号码

2008年分区联赛普级组第一题 ISBN号码

Time Limit:10000MS  Memory Limit:65536K
Total Submit:147 Accepted:90
Case Time Limit:1000MS

Description

　　每一本正式出版的图书都有一个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号码。

Input

输入文件isbn.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。

Output

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

Sample Input

【输入样例1】0-670-82162-4【输入样例２】0-670-82162-0

Sample Output

【输出样例1】Right【输出样例２】0-670-82162-4

水题。。。

var  st:string;  i,s,x,j:longint;begin  readln(st);  j:=1;  for i:=1 to 11 do    if st[i] in ['0'..'9']      then begin             val(st[i],x);             s:=s+j*x;             inc(j);           end;  if st[13]<>'X' then    begin      val(st[13],x);      if x<10 then        if s mod 11=x          then writeln('Right')          else begin                 for i:=1 to 12 do                   write(st[i]);                 if s mod 11<10                   then writeln(s mod 11)                   else writeln('X');               end;    end    else      if s mod 11=10        then writeln('Right')        else begin               for i:=1 to 12 do                 write(st[i]);               writeln(s mod 11);             end;end.