21 lines
499 B
Text
21 lines
499 B
Text
#include <basico.h>
|
|
|
|
algoritmo
|
|
|
|
n=0, c=""
|
|
temp = 0, candidatos={}
|
|
|
|
'123, 12345, 1234567, 987654321, 10001, -10001,-123'
|
|
'-100, 100, -12345,1, 2, -1, -10, 2002, -2002, 0'
|
|
enlistar en 'candidatos'
|
|
|
|
decimales '0'
|
|
|
|
#basic{
|
|
temp = string(candidatos * sign(candidatos))
|
|
n = len( temp )
|
|
c = replicate (temp, n>=3 && not(is even(n)))
|
|
toksep(NL)
|
|
print (cat( lpad(" ",11,string(candidatos)), cat(" : ", copy( 3, (n/2-1), c ))),NL)
|
|
}
|
|
terminar
|