sexta-feira, 28 de janeiro de 2011

Número Primo

{10 - Faca um programa que le um valor N inteiro e positivo e verifique se
 ele e primo.}

Program Exercicio_10;

Uses CRT;
Var Valor, Cont, VerifPrimo: Integer;

Begin
    VerifPrimo := 0;
    Clrscr;
    Writeln('Digite um valor');
    Read(Valor);
    For Cont := 1 to Valor Do
        Begin
            If Valor > 0 Then
               If (Valor MOD Cont) = 0 Then
                  VerifPrimo := VerifPrimo + 1;
        End;
    If VerifPrimo = 2 Then
       Writeln('O Numero, ', Valor, ' ‚ Primo')
    Else
       Writeln('O Numero, ', Valor, ' nao ‚ Primo');
    Readkey;
End.

9 comentários:

  1. Muito bom ja serviu para as aulas!!

    ResponderExcluir
  2. eu n sei fazer isso queria ajuda

    ResponderExcluir
  3. o akamine passou ne anonimo eu sei sobre sua vida

    ResponderExcluir
  4. Vergonha nada, qual o problema em tirar dúvida? pior é desistir, deixar de lado e não entregar ¬¬

    ResponderExcluir
  5. E se tivesse que colocar isso em uma function ?

    ResponderExcluir
  6. Obrigado. Ajudou muito, eu fiz com laço REPEAT para o cara continuar perguntando se quiser, mas não tinha imaginado como resolver para achar números primos.

    ResponderExcluir
  7. Obrigado. Ajudou muito, eu fiz com laço REPEAT para o cara continuar perguntando se quiser, mas não tinha imaginado como resolver para achar números primos.

    ResponderExcluir