var

i,j:integer;

s:string;

b:array[1..13]of integer;

begin

read(s);

for i:=1 to 13 do begin

b[i]:=ord(s[i])-ord('0');end;

i:=(b[1]+b[3]*2+b[4]*3+b[5]*4+b[7]*5+b[8]*6+b[9]*7+b[10]*8+b [11]*9)mod 11;

if b[13]=i then write('Right')

else

begin

for j:=1 to 12 do write(s[j]);

if i=10 then begin write('X');end else begin write(i);end;

end;

end.

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...程序输出比正确答案长

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案错误...程序输出比正确答案长

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：80 有效耗时：0ms

高手指点下啊~~~~~