Positive Zahlen in negative umwandeln

[Sven M.]

@Deddy und General...
War denn irgendwo gesagt, dass die Zahl "invertiert" sein muss? Nö!

Aber um euch zufriedenzustellen...

Delphi-Quellcode:

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