impares e pares
Publicado por marcio santos borges 14/12/2005
[ Hits: 7.890 ]
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" }
Escrevendo varias linhas em um arquivo qualquer
Lista de números aleatórios não-repetidos de um intervalo em Perl
Nenhum comentário foi encontrado.
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter