Middle three digits: Difference between revisions

m
Line 472:
guardar en 'v'
#(n = len( c:=(string(v)) ) ), mover a 'n'
"Num: ",justificar derecha(10,#(string(m))),"(",n,")\t"
si ' #( n>=3 && not(is even(n))) '
"Num: ",justificar derecha(10,#(string(m))),"(",n,")\t puede ser procesado : "
tomar si ( #(n==3), 'c', #( copy( 3, (n/2-1), c )) ), NL
sino
"Num: ",justificar derecha(10,#(string(m))),"(",n,")\tnono puede ser procesado\n"
fin si
luego imprime
543

edits