Ir para conteúdo

  • Entrar usando o Facebook Entrar usando o Twitter Entrar usando o Windows Live Login com Steam Login com Google      Entrar   
  • Cadastre-se

Tópicos Recentes

Ícone Classificados

Adicionar um Anúncio

Redes Sociais

Membros mais bem avaliados

Membros VIP mais recentes


Foto
- - - - -

como saber se o numero é primo ou nao e mostrar os numeros que esse numero é divid..


Este tópico foi arquivado. Isto significa que você não pode mais responder ao tópico.
3 respostas neste tópico

#1 kuim888

kuim888
  • Membros Juniores
  • 7 posts
  • Membro desde 19/06/2009
0
Neutra

Postado 19 de junho de 2009 - 22h04min

então gente estou com um exercio em pascal difícil pra caramba ...
eu sei fazer while if essas coisas
mas não sei qual condição eu faço para saber se o numero é primo
e mostrar quantos divisores ele possui ...
e também queria saber como fatora numeros pares


#2 iceberg

iceberg
  • Membros Plenos
  • 45 posts
  • Membro desde 15/03/2009
0
Neutra

Postado 20 de junho de 2009 - 07h40min

ola!
como voce não colocou o codigo, eu te direi como deve fazer parte do codigo
como dizer se um mumero é par ou não?:
voce deve utilizar o comando de decisão (if)!
deve ficar mais ou menos assim:

Program par;

var
     a:integer;
Begin
       write ('Digite um numero :');
       readln (a);
               if a mod 2=0 then
                     writeln ('O numero ',a,' é par')
               else
                     writeln ('o numero ',a,' é impar);
End.

Tente responder o resto do exercicio!
Até!!!!!!

Editado por Mog.Lucas, 20 de junho de 2009 - 13h39min.
Utilize tags [code] para separar texto de código. Obrigado! (Qualquer dúvida mande MP)


#3 kuim888

kuim888
  • Membros Juniores
  • 7 posts
  • Membro desde 19/06/2009
0
Neutra

Postado 20 de junho de 2009 - 14h38min

eu sei saber se ele par ou impar ...
mas eu queria saber
qual a condição de fatorar um numero em pascal
só isso ... valeu pela ajuda!!!


#4 iceberg

iceberg
  • Membros Plenos
  • 45 posts
  • Membro desde 15/03/2009
0
Neutra

Postado 21 de junho de 2009 - 08h06min

Desculpe man!
Li errado.
Tenta isso:
Program teste;
var
     a,m,cont:integer;
Begin
     write ('Digite um numero :');
     readln (a);
     for m:=1 to m<10 do
        begin
            if a mod m=0 then
                begin
                       cont:=cont+1;
                       writeln ('O(s) divisor(es) de ',a,'é / sao :',m);
                end;
        end;
     if cont=2 then
           writeln ('O numero ',a,' é primo');
     else
           writeln ('O numero ',a,' nao é primo');
End.                    
     
Desculpe se o codigo estiver errado.
Eu fiz fora do compilador!!!