Revisão das 03h57min de 21 de dezembro de 2010 editar Ricvelozo (discussão \| contribs) Autorrevisores, Reversores 13 975 edições →‎{{Ligações externas}} ← Ver a alteração anterior		Revisão das 00h38min de 13 de março de 2011 editar desfazer 187.7.222.206 (discussão) →‎Números perfeitos Ver a alteração posterior →
Linha 85: incr numPerfeito for {set j 1} {$j <= $numPerfeito} { incr j} { if {$numPerfeito % $j == 0 } { set somaNum [expr $somaNum + 1]

Tcl: diferenças entre revisões