|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
AW: Betrag auszahlbar?
29. Jun 2011, 12:42
Delphi-Quellcode:
//while Geld >= 100 do Dec(Geld, 100);
while (Geld >= 50) and (Geld <> 60) do Dec(Geld, 50);
while Geld >= 20 do Dec(Geld, 20);
Result = Geld = 0;
Ansonsten  Rucksackproblem
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|