Tcl: diferenças entre revisões
Conteúdo apagado Conteúdo adicionado
Linha 74:
<source lang="Tcl">
#!/usr/bin/tclsh
proc numsPerfeitos { n } {
set i 0
set numPerfeito 0
set somaNum 0▼
while {$i < $n} {
incr numPerfeito
▲ set somaNum 0
for {set j 1} {$j < $numPerfeito} { incr j} {
if {$numPerfeito % $j == 0 } {
set somaNum [expr $somaNum +
}
}
|