impares e pares

Publicado por marcio santos borges 14/12/2005

[ Hits: 8.211 ]

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

Calculadora

Escrevendo varias linhas em um arquivo qualquer

Equação do 2°

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

Lendo o conteúdo de uma página da Internet


  

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