Mathematica程序中国剩余定理-物不知其数(*自然数x除以{m}余{n},则x最小值是多少?*)arraym1={};arraym2={};arrayn1={};chengji=1;guocheng={{"除数:","余数:","其它除数的最","满足该行条件"}};guocheng=Append[guocheng,{"","","小公倍数:","的一个数字:"}];jieguo=0;p1=.;p2=.;For[i=1,i>-1,i++,p1=Input[StringJoin["已输入的除数有:",ToString[arraym1],"请输入除数,m",ToString[i],":","(确认输入按'OK',不再输入按'Cancel')"],Prime[i]];If[p1==$Canceled,Break[];];If[p1!=0,p2=Input[StringJoin["除数是",ToString[p1],"请输入余数n",ToString[i],":"],Floor[Prime[i]*Random[]]]];If[p2!=$Canceled,,,arraym1=Append[arraym1,p1];chengji=LCM[chengji,p1];arrayn1=Append[arrayn1,p2]];];arraym2=chengji/GCD[chengji,arraym1];arraym3=ConstantArray[0,Length[arraym1]];For[i=1,i<=Length[arraym1],i++,For[j=0,j
