Loading...

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.

5 comentários:

  1. Muito bom ja serviu para as aulas!!

    ResponderExcluir
  2. eu n sei fazer isso queria ajuda

    ResponderExcluir
    Respostas
    1. temos q entregar amanha fatecsp

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

    ResponderExcluir
  4. que vergonha para o nome da fatec

    ResponderExcluir