Sacar promedio de Nro.. pares

[luisito2011]

Empezado por Casimiro Notevi

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í.

si esta bien eso.. pero eso esta en Form application--
ai no me sale error cuando hago la divicion... pero yo la quiero en
console.. ai si me sale error cuando hago la division ...