Nja, Formel weiß ich jetzt auf die Schnelle och nicht, aber man kann sich das Ergebnis erstmal schnell ausprobieren.
216 Möglichkeiten mit Zurücklegen,
120 Möglichkeiten ohne Zurücklegen
und 36 Mal mit unterschiedlichen Farben,
womit das richtige Ergebnis 0,3 wäre, was vermutlich dein ODER sein müßte.
Du darfst dir gern 6 Kugeln anmalen und es ausprobieren, aber damit wäre man bei uns etwas fehl am Platz
Delphi-Quellcode:
procedure TForm10.Button1Click(Sender: TObject);
const
Value: array[0..5] of Integer = (0, 1, 1, 2, 2, 2);
var
i1, i2, i3: Integer;
begin
for i1 := 0 to 5 do
for i2 := 0 to 5 do
for i3 := 0 to 5 do begin
Edit1.Tag := Edit1.Tag + 1;
Edit1.Text := IntToStr(Edit1.Tag);
if (i1 = i2) or (i1 = i3) or (i2 = i3) then
Continue;
Edit2.Tag := Edit2.Tag + 1;
Edit2.Text := IntToStr(Edit2.Tag);
if (Value[i1] = Value[i2]) or (Value[i1] = Value[i3]) or (Value[i2] = Value[i3]) then
Continue;
Edit3.Tag := Edit3.Tag + 1;
Edit3.Text := IntToStr(Edit3.Tag);
Application.ProcessMessages;
end;
Edit4.Text := FloatToStr(Edit3.Tag / Edit2.Tag);
end;