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

Programa que separa os dígitos de um inteiro

Usando comandos shell com Perl

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

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

check_mem.pl - Plugin Nagios para checar consumo de RAM

Nenhum coment�rio foi encontrado.