uses crt;
var
numero, contador, numeroDeDivisores, i : integer;
Begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
{
Este programa recebe valores digitados pelo usuário
e os informam se estes são Primos ou não.
}
contador := 0;
while (contador < 5) do begin
contador := contador + 1;
writeln;
// Inicializando variáveis.
numeroDeDivisores := 0;
numero := -1;
// Só serão aceitos valores maiores ou iguais à zero.
while (numero < 0) do begin
write (' NUMERO...: ');
readln (numero);
end;
for i := 1 to numero do
if (numero mod i = 0) then
numeroDeDivisores := numeroDeDivisores + 1;
if (numeroDeDivisores <= 2) then
writeln (' Primo!')
else
writeln (' Nao e Primo!');
end;
readkey;
end.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Quadrado e Cubo dos números entre 1 e 20 em Pascal.
- Programa que calcula o fatorial de um número em Pascal
- Desenhando um quadrado em Pascal
- Desenhando um triângulo em Pascal
- Calculadora Simples em Pascal
 |
| Feito no Dev-Pascal 1.9.2 | Executável |
