ysgdm1(3,1)
+ysgdm2(3,1)
+ysgdm2(3,1)

//百十对码
function ysgdm1(cs,ys: integer): integer;
begin
result :=
IIF(IIF(imod((R1*10+R2),cs)=ys) in [IIF(imod((hR1(1)*10+hR2(1)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R2),cs)=ys) in [IIF(imod((hR1(2)*10+hR2(2)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R2),cs)=ys) in [IIF(imod((hR1(3)*10+hR2(3)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R2),cs)=ys) in [IIF(imod((hR1(4)*10+hR2(4)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R2),cs)=ys) in [IIF(imod((hR1(5)*10+hR2(5)),cs)=ys)],1,0);
end;
//十个对码
function ysgdm2(cs,ys: integer): integer;
begin
result :=
IIF(IIF(imod((R2*10+R3),cs)=ys) in [IIF(imod((hR2(1)*10+hR3(1)),cs)=ys)],1,0)+
IIF(IIF(imod((R2*10+R3),cs)=ys) in [IIF(imod((hR2(2)*10+hR3(2)),cs)=ys)],1,0)+
IIF(IIF(imod((R2*10+R3),cs)=ys) in [IIF(imod((hR2(3)*10+hR3(3)),cs)=ys)],1,0)+
IIF(IIF(imod((R2*10+R3),cs)=ys) in [IIF(imod((hR2(4)*10+hR3(4)),cs)=ys)],1,0)+
IIF(IIF(imod((R2*10+R3),cs)=ys) in [IIF(imod((hR2(5)*10+hR3(5)),cs)=ys)],1,0);
end;
//百个对码
function ysgdm3(cs,ys: integer): integer;
begin
result :=
IIF(IIF(imod((R1*10+R3),cs)=ys) in [IIF(imod((hR1(1)*10+hR3(1)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R3),cs)=ys) in [IIF(imod((hR1(2)*10+hR3(2)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R3),cs)=ys) in [IIF(imod((hR1(3)*10+hR3(3)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R3),cs)=ys) in [IIF(imod((hR1(4)*10+hR3(4)),cs)=ys)],1,0)+
IIF(IIF(imod((R1*10+R3),cs)=ys) in [IIF(imod((hR1(5)*10+hR3(5)),cs)=ys)],1,0);
end;