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.

Um comentário: