判断哪些整数n满足2的n次方=n的2次方,有多少个这样的数对
```r count <- 0 # 满足条件的数对个数 for (n in 1:10000) { # 在 1 到 10000 中搜索 if (2^n == n^2) { # 判断条件是否满足 print(n) count <- count + 1 # 记录满足条件的个数 } } cat("共有", count, "个整数满足条件。")
```