Código Delphi [-] function SumaImPares(n, m: Integer): Integer; begin dec(n, n and 1); inc(m, m and 1); Result:= MulDiv(m-n, n+m, 4); end;
function SumaImPares(n, m: Integer): Integer; begin dec(n, n and 1); inc(m, m and 1); Result:= MulDiv(m-n, n+m, 4); end;