Programa que separa os dígitos de um inteiro
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.134 ]
Programa que separa os dígitos de um inteiro e coloca-os em ordem direta.
#!perl print "Insira um número: "; chomp($n = <STDIN>); while($n > 0) { $b = $n % 10; if($b > 0) { push(@temp,$b); } $n = $n / 10; } $num = $#temp; while($num >= 0) { print $temp[$num] . " "; $num--; }
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Lista de números aleatórios não-repetidos de um intervalo em Perl
Separa os dígitos de um número
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba