R语言用while求101到200之间的素数 tmp1<-0 i1<-101 while (i1 <= 200){ fg1<-0 j1<-2 #当能被整除等于0,结果不为素数 while (j1 < (i1-1)){ if (i1%%j1==0){ fg1=1 break } j1 <- j1+1 } if (fg1 == 0){ print(i1) tmp1 <- tmp1+1 } i1 <- i1+1 } paste("101~200之间的素数有" ,tmp1)