【模拟】ISBN号码

题目:ISBN号码 rqnoj485

题目描述

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

没什么好说的。。。Pascal Code

program rqnoj485;procedure init;begin  assign(input,'rqnoj485.in');  assign(output,'rqnoj485.out');  reset(input);  rewrite(output);end;procedure outit;begin  close(input);  close(output);  halt;end;procedure readdata;beginend;function tonum(s:char):longint;begin  exit(ord(s)-ord('0'));end;procedure main;var  s:string;  i:longint;  sum,num:longint;begin  read(s);  sum:=0;num:=0;  for i:=1 to 12 do  begin    if s[i]='-' then continue;    inc(num);    sum:=sum+(ord(s[i])-ord('0'))*num;  end;  sum:=sum mod 11;    if sum=10 then  begin    if s[13]='X' then write('Right')    else begin      for i:=1 to 12 do write(s[i]);      write('X');    end;  end;  if sum<10 then  begin    if tonum(s[13])=sum then write('Right')    else begin      for i:=1 to 12 do write(s[i]);      write(sum);    end;  end;end;begin  init;  readdata;  main;  outit;end.