Deine Auswertung ist falsch.
Zuerst muss geprüft werden ob die Bank gewonnen hat.
Erst danach darf man prüfen, ob die Zahl gerade oder ungerade war:
Delphi-Quellcode:
x:=random(33); // liefert 0 .. 32
if x=0 then
begin
// Bank gewinnt
end
else if Odd(x) then
begin
// ungerade Zahl
end
else
begin
// gerade Zahl
end;
Man beachte, dass bei der Abfrage immer
else
verwendet wird.
Lnagfristig macht dieses kleine Ungleichgewicht zu Gunsten der Bank einen grossen Unterschied!!