7 Resposta do desafio

Digite a senha para visualizar o conteúdo:

Ok! Mas como isso acontece? Para responder, vamos construir um pequeno programa com operações matemáticas e lógicas.

Programa

# Atibui o número escolhido à variável num
num <- 16
# Calcula a soma dos algarismos 
algarismos <- as.numeric(strsplit(as.character(num), NULL)[[1]])
soma <- sum(algarismos)
# Passo 3
resultado <- num - soma
# Passo 4
resultado <- resultado*2
# Passo 5 e 6
resultado <- resultado/3 - 2
# Conferência
resultado == 4

## [1] TRUE

Observe que o resultado é invariante!