問題：https://www.spoj.pl/problems/NSTEPS/ for {gets stdin t} {$t>0} {incr t -1} { scan [gets stdin] {%d %d} x y if {$x==$y} { set r [expr 2*$y-($y%2?1:0)] } elseif {[expr $x-$y]==2} { set r [expr 2*$y+($y%2?1:2)] } else { set r "No Number…