Buracos negros numéricos

Kaprekar <- function(numero) {
#comproba a lonxitude no número
if (nchar(numero) == 4) {
kaprekarConstante = 6174
while (numero != kaprekarConstante) {
nums ordenoDesc ordenoDesc ordenoAsc ordenoAsc numero = as.integer(ordenoDesc) - as.integer(ordenoAsc)
r resultado da resta é: ', as.integer(numero))
print(r)
}
} else {
print("O número debe ter catro díxitos")
}
}

Kaprekar(7931)
Kaprekar(8721)
Kaprekar(5896)
Kaprekar(128)

 

Volver

2021  SGAPEIO   globbers joomla templates