mal ins blaue...
Delphi-Quellcode:
w1.würfeln;
versuche = 0;
repeat
inc(versuche);
w2.würfeln;
until w1.augen <> w2.augen;
writeln('Anzahl der Versuche: ', Versuche);
entweder mit zwei instanzen oder die augenzahl zwischenspeichern. sonst sind sie bei jeden neuen versuch wieder weg ...
