Numero Primo

Bom temos duas maneira de Fazer a verificação de um número primo, primeiro vou mostrar a vocês a maneira mais dificil e mais extensa sem laço de repetição e talvez amanhã eu coloco do modo mais facil para vocês.

Program numero_primo ;
var
n,r1,r2,r3,r4,cont:integer;
Begin
writeln(‘Entre com o número’);
readln(n);
cont:=0;
r1:=n mod 1;

r2:=n mod 2;
if n>=2 then

begin
if r1=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end
else

begin
r3:=n mod 3;
if n>=3 then

begin
if r3=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end

else

begin
r4:=n mod 4;
if n>=4 then

begin
if r4=0 then
begin
cont:=cont+1;
writeln(‘e primo’);
end;
end;
end;
end;
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: