Número primo
Publicado por Kelyane (última atualização em 01/10/2009)
[ Hits: 5.583 ]
Homepage: http://blog.kelyane.com
Programa que verifica se o número é primo ou não.
Program NumPrimo ; Var N, i: integer; isPrimo: boolean; respostaUsuario: char; Begin repeat write('Informe um número: '); readln(N); i:=2; isPrimo:= true ; while (i<N) and (isPrimo) do begin if (N mod i = 0) then begin isPrimo:= false ; end ; i:= i+1 ; end; if (isPrimo) then Begin writeln(N, ' é um número primo'); End else Begin writeln(N, ' não é um número primo, porque é divisível por ', i-1); End; write('Deseja continuar ? (S/N)'); readln(respostaUsuario); until (respostaUsuario='N') or (respostaUsuario='n') ; End.
mais um modelo de programa com vetor
encontrar o maior e o menor valor em um vetor
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Criar perfil temporário no Active Directory samba4-21 (2)
Meu Kubuntu não inicia, além do modo de recuperação (no meu dualboot (1)
Site da gontijo simplesmente não abre, ERR_HTTP2_PRO... (3)