tomber 0 Denunciar post Postado Abril 17, 2008 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: Compartilhar este post Link para o post Compartilhar em outros sites
tomber 0 Denunciar post Postado Abril 17, 2008 Ninguém? :unsure: Compartilhar este post Link para o post Compartilhar em outros sites
_Isis_ 202 Denunciar post Postado Abril 17, 2008 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. Compartilhar este post Link para o post Compartilhar em outros sites
Sσwyєяº 0 Denunciar post Postado Abril 18, 2008 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! Compartilhar este post Link para o post Compartilhar em outros sites