Zitat Zitat von oberallgeier
Weihnachten ist ja leider vorbei, es ist aber zum Rätselraten sowieso oft etwas zu hektisch - oder zu ruhig. Daher erst jetzt dieses Rätsel.
Code:
  1  1  1 = 6 
  2  2  2 = 6 
  3  3  3 = 6 

  4  4  4 = 6 
  5  5  5 = 6 
  6  6  6 = 6 

  7  7  7 = 6 
  8  8  8 = 6 
  9  9  9 = 6 

 10 10 10 = 6
Aufgabe: es sind beliebige mathematische Operationen möglich (erlaubt und gefordert) mit bzw. zwischen allen drei Ziffern links vom Gleichheitszeichen. Diese Operationen müssen so gewählt werden, damit das - immer gleiche - Ergebnis rechts vom Gleichheitszeichen erreicht wird. Sprich: die Operationen werden so abgestimmt, dass bei jeder Gleichung das Ergebnis "6" erreicht wird.
Moin moin

Ich habe mir den Spass gemacht und das in Bascom ausgedrückt.
Entickelt habe ich das aber "ZU Fuss". Man braucht ein
Ergebniss das ganzzahlig in 6 vorkommt, z.b. 2 also habe ich die
Vorgabe ( A)

1.) (1+1)/(1+1)+(1+1)/(1+1)+(1+1)/(1+1) = 6
.
.
.
10.) (10+10)/10+(10+10)/10+(10+10)/10 = 6

Gerechnet





Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$sim                                                        '$SIM

Dim A As Byte
Dim X As Byte

For A = 1 To 10

X = A + A
X = X / A
X = X * 3

Print A ; A ; A ; "=" ; X

Next
End
Trauriger Tag heute, meine GRAKA hat sich verabschiedet, der eine
Monitor bringt nur noch Müll, der andere sagt NIX mehr.SCH******
Jetzt hacke ich auf den EEpc herum und habe kein Fernsehen mehr"Wein".

Gruß Richard