impares e pares

Publicado por marcio santos borges 14/12/2005

[ Hits: 7.943 ]

Download pares.pl




programa que pede um numero e informa se e impar ou par

  



Esconder código-fonte

#!/usr/bin/perl 
#autor : m4rcio54nt05
#date : 14-12-2005

print "**************************calculando se e impar ou par************************* \n\n\n\n";
print "Digite a quantidade de numero inteiro:\n ";
chomp ( $numero = <STDIN> );

@array = (1..$numero);


for ( $i=1; $i <=$numero; ++$i ){
   print "Por favor digite o $i numero inteiro\n ";
   chomp ( $numero2[$i] = <STDIN> );
   $div = $numero2[$i] % 2;
   
     if ( $div==0 ){
       ++$j;
       $par[$j] = $numero2[$i];
      } 
     
     else {
        ++$z; 
        $impar[$z] = $numero2[$i];
     }
}

if ( $j > 0){
print "Os pares são:\n";
print "@par\n";
}
else {
print "não a pares:\n";
}

if ( $z >0){
print "Os impares são:\n";
print "@impar\n"
}
else {
print "nao a impares:\n"
}

Scripts recomendados

Renomeando arquivos de forma padronizada

Múltiplos de 7 - Decrescente

Assistente de instalação por apt!

localtime.pl

Obtendo horas do sistema


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts