Ver Mensaje Individual
  #1  
Antiguo 08-06-2007
N4ota N4ota is offline
Registrado
 
Registrado: may 2007
Posts: 4
Reputación: 0
N4ota Va por buen camino
Exclamation Porfavor algo de ayuda con un poco de codigo en delphi!!

wenas:
disculpen soy nuevito por aca y veo k ustedes serian mi solucion mas rapida quisiera que me tiren una ayudita por aca tengo un problema y no se como resolverlo:
el problema es quisiera saber una forma de sumar los "n" numeros primos
osea:


n----> F ----->f:integer;



si n=5 entonces seria 1+2+3+5+7=18
si n=6 entonces seria 1+2+3+5+7+11=29
y asi

yo hice lo siguiente
Código Delphi [-]
 
function primo(n:integer):boolean;
var a,b:integer;
begin
a:=0
repeat
a:=a+1;
b:=n mod a;
until (b=0) or (b<>0);
if b<>0 then
begin
result:=true
else
result:=false;
end;
end;
function S_primo(n:integer):integer;
var

begin <------ bueno aqui mi duda si es que se puede utilizar un bucle para invocar a primo y sumar digito por digito ya que intento con for pero me pide que sea un dato diferente de un booleano

porfavor una pequeña ayuda ya saben hoy por ti mañana por mi

se agradece toda colaboracion de antemano

Última edición por marcoszorrilla fecha: 10-06-2007 a las 23:40:57.
Responder Con Cita