Número primo
Publicado por Kelyane (última atualização em 01/10/2009)
[ Hits: 5.587 ]
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.
Programa lê nome (básico) - Pascal para iniciantes
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
mais um modelo de programa com 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
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (2)
compilação samba 4.22 rock linux 9.5 (0)
POSSO INSTALAR USAR O GRUB SEM TER LINUX INSTALADO, PARA INICIAR O WIN... (1)
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (4)