Cita:
Empezado por escafandra
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.
|
Je, je, sí, pero es que el ejercicio pedía el uso de while-do o repeat-until. De ahí la línea que habia puesto:
LineComment Saludos