tcl使用嵌套for循环从2至100找出所有的素数

好的，您可以使用以下的 Tcl 代码来找出 2 至 100 之间的所有素数：

for {set i 2} {$i <= 100} {incr i} {
  set is_prime 1
  for {set j 2} {$j <= [expr {sqrt($i)}]} {incr j} {
    if {[expr {$i % $j}] == 0} {
      set is_prime 0
      break
    }
  }
  if {$is_prime} {
    puts $i
  }
}

这个代码中，我们使用了两个嵌套的 for 循环。外层的 for 循环从 2 开始循环到 100，内层的 for 循环则用来判断当前循环到的数是否为素数。每次循环内我们先假设当前的数是素数（is_prime = 1），然后从 2 开始循环到该数的平方根，检查是否有其他因子能够整除该数。如果找到了一个因子，就说明该数不是素数，将 is_prime 的值设为 0 并跳出内层的循环。最后在外层循环结束时，如果 is_prime 的值仍然为 1，说明该数是素数，我们将它输出即可。