Número primo
Publicado por Kelyane (última atualização em 01/10/2009)
[ Hits: 5.420 ]
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.
cadastro de um cliente com registro
script para ler um vetor e mostrar o conteúdo
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Notebook com Ubuntu 22.04.4 se reinicia após curtos períodos. (2)
O que é isso no meu navegador? [RESOLVIDO] (5)