Ayuda con numeros primos

[ecfisa]

Empezado por Jcn

Hola, necesito ayuda con este programa para que sume numeros primos entre dos limites pedidos, la cual tiene un error.

Código Delphi [-]
...
    {aqui esta el error}
    IF (numero) mod 2= 0 and (numero<>2 then
...

Hola Jcn.

Si, en esa línea hay un error. Debería ser:

Código Delphi [-]
  if (numero mod 2 = 0) and (numero <> 2) then

Tambíen vas a encontrar otro en:

Código Delphi [-]
  until factor>Sqrt(numero) or primo = False;

Sería:

Código Delphi [-]
  until (factor > Sqrt(numero)) or not primo;

Luego queda saber si ejecuta su cometido...

Saludos.