Número primo com laço de repetição

Bom Dia como prometido estou postando o programa que mostra o número primo mais agora com laço de repetição, é mais curto o programa e verifica todo número sem precisar fazer o calculo de todos.

Program primo ;
var
i,n,cont,r,x:integer;
op:char;
Begin
repeat
writeln(‘entre com um valor:’);
readln(n);
cont:=0;
x:=0;

for i:=0 to n do
begin
x:=x+1;
r:=n mod x;
if r=0 then
cont:=cont+1;
end;

if cont=2 then
begin
writeln(‘o número É primo’);
end
else
begin
writeln(‘o número NÃO é primo’);
end;
writeln(‘Deseja verificar novo numero ? (s/n)’);
op:=upcase(readkey);
clrscr;
until(op=’N’);
End.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: