[lmikle]

ОК.
Если у нас длинна цифры = 2, то округляем один разряд.
Если длинна цифры = 3, то округляем 2 разряда,
Если длинна цифры = 4, то округляем 3 разряда, и т.д.
Исключение - один разряд, всегда округляем до 10.
Соответсвенно, код будет выглядеть примерно так:

Код:

1 2 3 4 5 6 7 8 9

function RoundSpecial(N : Integer) : Integer; var   Buf : String; begin   Buf := IntToStr(Abs(N)); // Abs - убираем "-"   If Length(Buf) = 1      Then Result := Sign(N) * 10 // Sign - возвращаем "-"      Else Result := RoundTo(N,-1 * (Length(Buf)-1)); end;