123456788 2008-11-22 06:00:00
点我顶贴
收藏
删除
program gjz；
var
i,n,s:longint；
a:array[0..1000]of longint；
begin
read(n)；
for i:=1 to n do
read(a[i])；
s:=(a[1]*1+a[2]*2+a[3]*3+a[4]*4+a[5]*5+a[6]*6+a[7]*7+a[8]*8+a[9]*9) mod 11；
if s=a[10] then write(’Right’) else write(a[1],’-’,a[2],a[3],a[4],’-’,a[5],a[6],a[7],a[8],a[9],’-’,s)；
end.
#1 maa04@2008-11-17 03:27:00
9553
回复
删除
确实错了，输入不对，看看我最朴素的程序：
Var a:array[1..9]of integer；
i,j,k:longint；
s:string；
p:char；
Begin
readln(s)；
a[1]:=ord(s[1])-48；
a[2]:=ord(s[3])-48；
a[3]:=ord(s[4])-48；
a[4]:=ord(s[5])-48；
a[5]:=ord(s[7])-48；
a[6]:=ord(s[8])-48；
a[7]:=ord(s[9])-48；
a[8]:=ord(s[10])-48；
a[9]:=ord(s[11])-48；
For i:=1 to 9 do k:=k+a[i]*i；
k:=k mod 11；
if k=10 Then p:=’X’ else p:=chr(k+48)；
if p=s[13] Then writeln(’Right’) else writeln(a[1],’-’,a[2],a[3],a[4],’-’,a[5],a[6],a[7],a[8],a[9],’-’,p)；
End.