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

• Download 1.5.pl
• Enviar nova versão

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

Separa os dígitos de um número

Cadastro usando arquivos .txt para guardar dados

Escrevendo varias linhas em um arquivo qualquer

Aprendendo a fazer equações em Perl

Crivo de Eratóstenes Simples em Perl

Nenhum comentário foi encontrado.