Numeros Primos

[tomber 0]

Pessoal , não estou conseguindo fazer esse programa :

Programa que receba um numero inteiro e verifique se

o numero fornecido é primo ou não...

 

:blink:

 

 

CODE

program ex4;

uses crt;

var

i,num:integer;

begin

for i:=1 to 5 do

begin

write('Numero:');readln(num);

if ( (num mod 1 ) = 0 ) and ( (num mod num ) = 0 ) then

 

writeln('<<< Eh um numero primo >>> ',num)

else

 

write('>>Nao eh numero primo<<');

end;

 

 

readkey;

end.

 

 

Alguém pode me dar um luz onde estou errando ...

pq todo numero que coloco pra testar ele diz que é primo;

:wacko:

[tomber 0]

Ninguém?

:unsure:

[_Isis_ 202]

Lógico que vai dizer né? Olha o teu if....

 

TODO número N é divisível por 1 e por N (incluindo 4,6,8,9,10,12,14,15,16,18,20,22,24,25,26,27,28,30,32,33,34,35,36,38,39,40,42,44,

45,46,48,49,50...). Números primos são divisíveis SOMENTE por 1 e N (2,3,5,7,11,13,17,19,23,29,31,37,39,41,....), sendo N diferente de 1.

 

E 1 não é primo.

[Sσwyєяº 0]

código:

 

var
 
int N,i,Div;

ESCREVA(DIGITE UM NUMERO);

LEIA(N);

i=2;

Div=0;

PARA (i=2  ATÉ N/2 , i++) FAÇA

	   SE(N mod i ==0)
			
				 Div=Div+1;
	
	   SENÃO
 
				 i = i+1;

FIM_PARA;

SE (Div==0)

	 ESCREVA ( O NUMERO É PRIMO INFELIZ ^^");

SENÃO 

	 ESCREVA ( O NUMERO NÃO É PRIMO INFELIZ ^^" );

FIM;

 

sem mais delongas!