Tyvj P1032 Begin2 Unit1 身份验证

描述 Description

身份证的验证码是这样算的：
比如一个人前17位是这样子的：
35010219801221109
如何算它的验证码？
K=∑(A[i]*W[i])（i=2~18)
也就是说K=(A[2]*W[2])+(A[3]*W[3])+...+(A[18]*W[18])
A[i]表示的是从右数到左第i个数（包括验证码在内）
如前面的例子中，最后三位1、0、9，i值分别为4、3、2
A[i]就是编号为i的那个数的字符。如例子中A[2]=9，A[3]=0.
那么W[i]又是什么呢？如图所示

好了，现在就可以算它的K值了。把K除以11所得的余数与下面的表格对照即可知道它的验证码。

输入格式 Input Format

		输入数据包含十七位数，即二代身份证号码的前17位数。

	输出格式 Output Format
		二代身份证号码的第18位数，即验证码。

 

样例输入 Sample Input 35010219801221109 样例输出 Sample Output 7

10分钟ac，两次提交，第一次忘定义变量l了。。学校服务器fp居然不能编译，害我把测评机当编译器用...

program b1032;
 const
  w:array[2..18]of integer=(2,4,8,5,10,9,7,3,6,1,2,4,8,5,10,9,7);
  ky:array[0..10]of char=('1','0','X','9','8','7','6','5','4','3','2');
 var
  a:array[1..18]of integer;
  i,k,y,l:longint;
  s:string;
 begin
  k:=0;
  readln(s);
  for i := 2 to 18 do
   begin
    a[i]:=ord(s[19-i])-48;
    k:=a[i]*w[i]+k;
   end;
  l:=k mod 11;
  write(ky[l]);
 end.