Ayuda con numeros primos

[[nlsgarcia]]

Jcn,

Empezado por Jcn

...sume numeros primos entre dos limites pedidos...

Revisa este código:

Código Delphi [-]
procedure SumNumberPrime(RangoI, RangoF : Integer);
var
   i,j : Integer;
   rn : integer;
   Prime : Boolean;
   SumPrime : Int64;

begin

   SumPrime := 0;

   for i := RangoI to RangoF do
   begin

      Prime := True;

      rn := Trunc(sqrt(i));

      for j := 2 to rn do
      begin
         if (i mod j) = 0 then
         begin
            Prime := False;
            break;
         end;
      end;

      if Prime then
         SumPrime := SumPrime + i;

   end;

   Showmessage(Format('La Suma de los Números Primos entre %d y %d es: %d',[RangoI, RangoF, SumPrime]));

end;

El código anterior realiza la sumatoria de los números primos contenidos entre los limites (RangoI, RangoF) del procedure SumNumberPrime.

Espero sea útil

Nelson.