- ISBN号码
- 2009-08-11 18:30:42 @
begin
readln(s);
ts:=num(s[1])*1+num(s[3])*2+num(s[4])*3+num(s[5])*4+num(s[7])*5+num(s[8])*6+num(s[9])*7+num(s[10])*8+num(s[11])*9;
ts:=ts mod 11;
t:=ord(s[13])-ord('0');
if ts=t then write('Right')
else begin
for i:=1 to 12 do write(s[i]);
if ts=10 then writeln('x')
else writeln(ts);
end;
end.
2 条评论
-
sutank2009 LV 8 @ 2009-08-11 20:27:57
RE
是不是因为本来就有X但没判对???
-
2009-08-11 20:10:59@
re
大写X
- 1