Marcos, acho que o conte�do esta fora do escopo da lista, mas tudo bem!
Creio que deve ser isso:

(Algoritmo 1)
Algoritmo Acha_NR_Primo
Var:
inteiro i, Cont, X;
Inicio:
Cont=0;
Escreva("Entre com um n�mero:");
Leia(X);
Para i de 1 at� X fa�a
         Se (X mod i) = 0 ent�o      //mod retorna o resto da divis�o!
                 Cont = Cont + 1;
         FimSe
FimPara
Se Cont <= 2 ent�o
         Escreva(X,"� primo!");
SeN�o
         Escreva(X,"N�o � primo!");
FimSe
Fim


(Algoritmo 2)
Algoritmo
Algoritmo Acha_Todos_Primos
Var:
inteiro: i, j, Cont, N, X;
Inicio:
Escreva("Informe at� qual n�mero deseja procurar:");
Leia(N);
Para j de 1 at� N fa�a
         Cont = 0;
         X = j;
         Para i de 1 at� X fa�a
                 Se (X mod i) = 0 ent�o
                         Cont = Cont + 1;
                 FimSe
         FimPara
         Se Cont <= 2 ent�o
                 Escreva(X,"� primo!");
         SeN�o
                 Escreva(X,"N�o � primo!");
         FimSe
FimPara
Fim

Se n�o for o que vc estava procurando ou se tiver erro na l�gica, pe�o
desculpas!
Falows
Alan
On Mon, 08 May 2000, Marcos Casagrande wrote:
>
>Caros Javaneses
>
>Gostaria se poss�vel que algu�m se disponha a ajudar-me a resolver este 
>algoritmo para minha aula de "Algoritmos e Estruturas"
>
>1)* Escrever um algoritmo para ler um numero X e determinar se � n�mero 
>primo
>
>20)*Determinar os n�meros primos entre 1 e 200
>
>// o algoritmo de ter a seguinte estrutura //
>
>Algoritmo Acha_NR_Primos
>Var
>              Int: i , Cont , N, X
>Inicio
>         Ler X , N
>                              Para i de 1 ate N faca
>                                Se ( ?????? )=0 entao
>                                      ????????
>                                Fim se
>                      Fim para
>                                  Se ????? entao
>                                         Escrever X eh primo
>                                   senao
>                                          Escrever X n�o eh primo
>                                    Fim se
>Fim
>
>
>Se alguem puder me ajudar ficarei muito grato
>Desde j� agrade�o pela aten��o
>Marcos
>[EMAIL PROTECTED]
>
>

----------------------------------------
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com

    --------------------------- LISTA SOUJAVA ---------------------------
    http://www.soujava.org.br  -  Sociedade de Usu�rios Java da Sucesu-SP
    [d�vidas mais comuns: http://www.soujava.org.br/faq.htm]
    [para sair da lista: http://www.soujava.org.br/forum/cadastrados.htm]
    [regras da lista: http://www.soujava.org.br/regras.htm]
    ---------------------------------------------------------------------

Responder a