Separa os dígitos de um número
Publicado por Roddas Cabral (última atualização em 20/10/2017)
[ Hits: 1.811 ]
Programa que separa os dígitos de um inteiro e coloca-os em ordem inversa.
#!perl
print "Insira um number: ";
chomp($n = <STDIN>);
while($n > 0)
{
if($n%10 > 0)
{
print $n%10 . " ";
}
$n = $n / 10;
}
# Espero ter ajudado
# Roddas
check_mem.pl - Plugin Nagios para checar consumo de RAM
Lista de números aleatórios não-repetidos de um intervalo em Perl
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)









