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 para quantidade ilimitada de parâmetros

Calculadora

Cálculo do MDC em Perl

Data por extenso

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

Nenhum comentário foi encontrado.