RE:rpta ayuda para realizar un programa.... ¡¡¡
Espero que estas funciones te sirvan:
Function EsPar(Numero :LongInt) :Boolean;
Begin
EsPar := ((Numero mod 2)=0);
End;
Function EsImpar(Numero :LongInt) :Boolean;
Begin
EsImpar := Not EsPar(Numero);
End;
Function SumaPares(Desde, Hasta :LongInt) :LongInt;
Var
Indice :Longnt;
Suma :LongInt;
Begin
Suma := 0;
For Indice := Desde to Hasta do
If EsPar(Indice) then Suma := Suma + Indice;
SumaPares := Suma;
End;
Function SumaImpares(Desde, Hasta :LongInt) :LongInt;
Var
Indice :Longnt;
Suma :LongInt;
Begin
Suma := 0;
For Indice := Desde to Hasta do
If EsImpar(Indice) then Suma := Suma + Indice;
SumaImpares := Suma;
End;
Espero que te sirvan. Saludos ;-)