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

• Download contagem.pl
• Enviar nova versão

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

Cálculo do MDC em Perl

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

Cálculo de área de uma figura geométrica

Graficos com barras em Perl

Simples Contador

Nenhum comentário foi encontrado.