Positive Zahlen in negative umwandeln

[Sven M.]

Na doch...wenn es eine negative Zahl ist, dann wird sie quasi mit zwei multipliziert...

Aber um mal wieder ein bisschen Ernst in die Sache zu bringen:

Delphi-Quellcode:

if zahl>0 then 
begin 
  for i:=1 to zahl+1 do 
    begin 
      dec(zahl); 
    end; 
end;