Nunja,
shl(x:=x shl 1;//x wird verdoppelt) bzw.
shr(x:=x shr 1;//x wird halbiert) machen das, aber ich glaube das meinst du nicht.
Du könntest solange von der Zahl 1 abziehen, bis das Ergebnis mal zwei kleiner oder gleich der Ausgangszahl ist:
Delphi-Quellcode:
function DividebySubtraction(n:Integer);
Begin
Result:=n;
while (Result+Result)>n
do
Dec(Result);
End;
[Edit]Habs in ne Funktion gepackt
Aber was für einen Sinn soll das haben?