Блин чета тупанул малость
вообще ето дело работает личение одного бита(или байта) в начале, но я тоже не по курсу
JohnK- Непрокатит, делится опять-же на отрицательное значение.
На блице оч просто
a=-5
Print Abs2(a)
a=5
Print Abs2(a)
Function Abs2(a)
If a<0 : Return -a
Else : Return a
EndIf
End Function
|