impares e pares
Publicado por marcio santos borges 14/12/2005
[ Hits: 8.325 ]
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" }
Calculando a média entre dois valores
Programa que separa os dígitos de um inteiro
Lista de números aleatórios não-repetidos de um intervalo em Perl
Nenhum comentário foi encontrado.
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Firewire resiste, Bcachefs sai: destaques Linux do dia
Kernel 6.18 em foco, betas fervilhando e avanços em IA no Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)