Redondear valores enteros

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
function RoundFives(Numero: Double): Integer;
var
  u, N: Integer;
begin
  N:= Trunc(Numero);
  u:= N - 10 * (N div 10);
  N:= N - u;
  Result:= N;
  if u in[1..5] then
    Result:= N + 5;
  if u in [6..9] then
    Result:= N + 10;
end;

Saludos.