Porfavor algo de ayuda con un poco de codigo en delphi!!

[roman]

N4ota, por favor utiliza títulos más descriptivos para tus mensajes. "Porfavor algo de ayuda con un poco de codigo en delphi!!" no dice nada en unos foros donde precisamente se ayuda en código delphi mayormente y dificulta las futuras búsquedas. Además procura utilizar las etiquetas adecuadas para escribir código, tales como [code] o [delphi].

A parte de eso, te doy la bienvenida a los foros y te aclaro que el número 1 no es primo.

// Saludos

[[seoane]]

Solo añadir que solo tienes que comprobar si es divisible por los números menores a su raíz cuadrada.

Código Delphi [-]
function EsPrimo(x: integer): Boolean;
var
  i: integer;
begin
  for i:= 2 to Trunc(Sqrt(x)) do
    if x mod i = 0 then
    begin
      Result:= FALSE;
      Exit;
    end;
  Result:= TRUE;
end;

Por cierto, esto resulta un poco inútil:

Código Delphi [-]
  until (b=0) or (b<>0);

es broma, espero que no te parezca mal ....

[fide]

El codigo que uso Seoane es el que he usado toda mi vida para calcular si un numero es primo, ya que los divisores de un numero siempre estaran por debako de la mitad de dicho numero, o sea por debajo de la raiz cuadrada.