|
CC=表[（总和[Mod[（Floor[f/10^n]），10]，{n，0，Floor[Log[10，f]]}]），{f，1，1323}]；
DD=表[（总和[（Mod[（Floor[f/10^n]），10]）^（Mod[（Floor[f/
10^（n-1）]），10]），{n，1，Floor[Log[10，f]}]），[f，1，1323}]；
EE=表[（产品[Mod[（地板[f/10^n]），10]，{n，0，地板[Log[10，f]}]），{f，1，555}]；
FF=表[（乘积[（Mod[（Floor[f/10^n]），10]）^（Mod[（Floor[f/10 ^（n-1）]），10）），{n，1，Floor[Log[10，f]}]），{f，1，1323}]；
SUMA=（CC+DD）+（EE*FF）
RES=SUMA-表[n，{n，1，1323}]
位置[SS，0]
| 