seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Scripts » Perl » Verificar se numero é primo

Verificar se numero é primo

Ir para baixo  Mensagem [Página 1 de 1]

1Verificar se numero é primo Empty Verificar se numero é primo Qui Jan 31, 2013 7:21 pm

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl

print "\nDigite o numero valor: ";
$valor=<STDIN>;
chomp($valor);
if($valor == 1){
print "\n\n[*] Esse numero nao e primo\n\n";
exit;
}
for ($count = 1; $count <= $valor; $count++){

$result=$valor/$count;
$resto=$valor%$count;
if($resto == 0 && $count != 1 && $count != $valor){
print "\n\n[*] Esse numero nao e primo\n\n";
exit;
}
}
print "\n\n[*] Numero primo !!!\n\n";

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » Verificar se numero é primo

Permissões neste sub-fórum
Não podes responder a tópicos