H整数:=INTPART(ROUND(H*100));
L整数:=INTPART(ROUND(L*100));
H小数:=H整数-INTPART(H)*100;
L小数:=L整数-INTPART(L)*100;
双胞胎:
H小数+89=100 OR H小数+78=100 OR H小数+67=100 OR H小数+56=100 OR
H小数+45=100 OR H小数+34=100 OR H小数+23=100 OR H小数+12=100 OR H小数+1=100 OR
L小数+89=100 OR L小数+78=100 OR L小数+67=100 OR L小数+56=100 OR
L小数+45=100 OR L小数+34=100 OR L小数+23=100 OR L小数+12=100 OR L小数+1=100 ;