Número primo
Publicado por Kelyane (última atualização em 01/10/2009)
[ Hits: 5.749 ]
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.
Array de números aleatórios não-repetidos de um intervalo em Pascal
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Linux é a solução para o fim do Windows10? (2)
Problemas com Driver NVIDIA (4)
Programa fora de escala na tela do pc (28)
converter algoritmo C++ em C? (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









