Cita:
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 ...