zhujicheng 2012-08-07 08:18:00
点我顶贴
收藏
删除
program isbm;
var s:array [1..13] of string[1];
x:array [1..13] of integer;
i,code,a,r:integer;
begin
for i:=1 to 13 do
begin
read(s[i]);
val(s[i],x[i],code);
end;
a:=(x[1]+x[3]*2+x[4]*3+x[5]*4+x[7]*5+x[8]*6+x[9]*7+x[10]*8+x[11]*9) mod 11;
if x[13]=a then r:=1;
if (s[13]='x')and(a=10) then r:=1;
if r=1 then write('Right') else begin
for i:=1 to 12 do
write(s[i]);
if a=10 then write('x')
else
write(a);
end;
end.