Programa que separa os dígitos de um inteiro

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

[ Hits: 1.264 ]

Download 1.5.pl




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

  



Esconder código-fonte

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

Scripts recomendados

Equação do 2°

Verificar se usuário é root

imprime numeros de forma crescente e decrescente [FOR]

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Calculadora de IMC em 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