~小耳朵猪~ 2011-10-16 21:43:00
点我顶贴
收藏
删除
80分~~~~
大牛们给看看为什么有两组输出太长啊
program isbn;
var s,s1:string;
i,sum,t,k:longint;
begin
assign(input,'isbn.in');
assign(output,'isbn.out');
reset(input);
rewrite(output);
readln(s);
s1:=copy(s,1,12);
val(s[13],t);
delete(s,12,2);
delete(s,6,1);
delete(s,2,1);
for i:=1 to 9 do
begin
val(s[i],k);
inc(sum,k*i);
end;
sum:=sum mod 11;
if sum=10 then writeln(s1+'X')
else begin
if sum=t then writeln('Right')
else begin
str(sum,s);
writeln(s1+s);
end;
end;
close(input);
close(output);
end.