impares e pares
Publicado por marcio santos borges 14/12/2005
[ Hits: 8.262 ]
programa que pede um numero e informa se e impar ou par
#!/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" }
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (188)
warsaw parou de funcionar após atualização do sistema (solução) (10)