Separa os dígitos de um número

Publicado por Roddas Cabral (última atualização em 20/10/2017)

[ Hits: 1.811 ]

Download contagem.pl




Programa que separa os dígitos de um inteiro e coloca-os em ordem inversa.

  



Esconder código-fonte

#!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

Scripts recomendados

Queimando CDs on-the-fly

check_mem.pl - Plugin Nagios para checar consumo de RAM

localtime.pl

Lista de números aleatórios não-repetidos de um intervalo em Perl

Anagrama usando Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts