for {set day 1;set cur 7} {$cur<77} {incr cur 2 ;incr day } {}puts $day

proc getsum {min {max 100}} {    set sum 0    for {set i $min} {$i<=$max} {incr i}    {        incr sum $i    }    return $sum}puts [getsum 1 ]

proc getavg {args} {    set i 0    set sum 0    foreach n $args {        incr i 1        incr sum $n    }      set avg [expr $sum/$i]    puts "输入的数和为$sum,平均值为$avg"}getavg 2 4 6 8 10

#要求输入的参数的格式为 小明 22 小李 37 张华 54 李梅 8 返回其中年龄最大的姓名proc getmax {args} {    set i 0    set name ""    foreach {n a} $args {        if {$a>$i} {            set i $a              set name $n        }    }    return $name}puts [getmax 小明 22 小李 99 张华 54 李梅 8]