Programa que verifica se o número é primo ou não.

• Download NumeroPrimo.pas
• Enviar nova versão

Esconder código-fonte

Program NumPrimo ;

 Var    N, i: integer;
          isPrimo: boolean;
          respostaUsuario: char;   

 Begin    
    repeat 
       write('Informe um número: ');
      readln(N);
       
           i:=2;
      isPrimo:= true ;
         while (i<N) and (isPrimo) do  begin
         if (N mod i = 0) then begin     
            isPrimo:= false ;
                   end ;    
                        i:= i+1 ;
           end;
           if (isPrimo) then   Begin
         writeln(N, ' é um número primo');
           End 
           else Begin
              writeln(N, ' não é um número primo, porque é divisível por ', i-1);
           End;

      write('Deseja continuar ? (S/N)');      
           readln(respostaUsuario);
   until (respostaUsuario='N') or (respostaUsuario='n') ;
 End.

controle de notas de um aluno com registro e array

Cálculadora de décimo terceiro

Calculadora de décimo terceiro salário(Lazarus)

cadastro de um cliente com registro

Gerador de Senha no Lazarus