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

Potenciação

Saiba quanto de energia seu PC gasta aproximadamente por mês

Anagrama usando Perl

Nenhum comentário foi encontrado.