Ver Mensaje Individual
  #9  
Antiguo 23-04-2017
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
NULL
 
Registrado: nov 2007
Posts: 1.954
Reputación: 14
escafandra Va camino a la famaescafandra Va camino a la fama
Esta opción requiere menor potencia de cálculo:
Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= ((m - n) div 2 + (m - n) mod 2) * ((n + m) div 2);
end;

Saludos.
Responder Con Cita