Cita:
Empezado por luisito2011
bueno ahora..el ejercicio es este...
//Ingresar un numero.. y sacar el promedio de los digitos pares//
|
Así, de memoria, más o menos es algo así:
Código Delphi
[-]
function getPromedioDigitosPares( cNumero:string ):double;
var
iX : integer;
dSuma : double;
iDigitos : integer;
begin
dSuma := 0;
iDigitos := 0;
for iX:=0 to length(cNumero) do
begin
if (iX mod 2)=0 then
begin
dSuma := dSuma + StrToFloat(cNumero[iX]);
inc(iDigitos)
end;
end;
Result := dSuma / iDigitos;
end;
Y la llamada sería algo así:
Código Delphi
[-]
ShosMessage(FloatToStr(getPromedioDigitosPares('8942472384')));
Si no te he entendido mal, es algo así.