|
stev_sez:=进程（n）局部i，tren，st，ans，anstren；ans:=[]：anstren:=[[]：tren:=n：对于i while（tren>0）do st:=round（10*frac（tren/10））：ans:=[操作（ans），st]：tren：=trunc（tren/10）：结束do；对于i从nops（ans）到1 by-1执行anstren:=[op（anstren），op（i，ans）]；od；返回（anstren）；结束：ts_stnepf：=进程（n）局部i，stpf，ans；ans:=stev_sez（n）：stpf:=0：对于i从1到nops（ans）do if（isprime（op（i，ans））='false'），则stpf:=stpf+1；#非素数位数fiod；返回（stpf）结束：ts_nepr_neprn：=proc（n）local i，stpf，ans，ans1，tren；ans:=[]：stpf:=0:tren:=1：对于i从1到n的do，如果（i素数（i）=“false”且ts_stnepf（i）=2），则ans:=[操作（ans），i]：tren:=tren+1；光纤；返回（ans）结束：ts_nepr_neprd（1000）；
| 