Rätsel....
 

wie lautet die nächste zeile?

....1
...11
...21
..1211
111221

lang gebraucht is aber billig, mit meinem iq 143 in mathe pffff

312211

wehe das stimmt ned.......dann wärs peinlich

nächste wäre dann

13112221 und so weiter :ass2:

:top: :top: :top: :huepf: :huepf: :huepf:

ja gut, wohnst ja auch nahe an der CH... :D

merksch was? ich gehör in die schweiz.....gebt mir frauen! :heule:

Nächste von Danieol ist dann:

1113213211

bleipipi isn schweizer, das is der beweis :bleifuss: :bleifuss:

Dieses "Rätsel" is alt(-bekannt) in der Mathematik........ :dd:

(Man kann aber leicht die Geduld verlieren, wenn man Stunden dransitzt und das Prinzip einem einfach nicht klar wird :weird: :weird: :weird: )

ich aber nicht, ich bin neu in der mathematik :form:

geht auch in D:

31131211131221

Man könnte natürlich diese Reihe beliebig fortsetzten:

13211311123113112211 :form:

11131221133112132113212221 :haeh:

3113112221232112111312211312113211 :weird:

gibt wohl nie ne vier was?

Wie sollte die denn auch zu stande kommen? :confused:

da kommt echt keine 4... zumindest bis zur 40. Zeile :dusel:

allerdings war ich zu faul, das mit Zettel und Stift herauszufinden, dafür gibt es ja excel :engel:

Code:

---

Sub Lustige_Zahlenreihe()

ZEILE = 1

Worksheets("Tabelle1").Cells(ZEILE, 1).NumberFormat = "@"
Worksheets("Tabelle1").Cells(ZEILE, 2).NumberFormat = "@"
Worksheets("Tabelle1").Cells(ZEILE, 3).NumberFormat = "@"
Worksheets("Tabelle1").Cells(ZEILE, 1) = "1"
Worksheets("Tabelle1").Cells(ZEILE, 2) = "1"
Worksheets("Tabelle1").Cells(ZEILE, 3) = "1"

EINSPRUNG:

NEUES_ZEICHEN = ""

WERT = Worksheets("Tabelle1").Cells(ZEILE, 3)

STELLE = 1

STELLE_BEGINN = STELLE

ZEICHEN = Mid$(WERT, STELLE_BEGINN, 1)

STELLE = STELLE + 1

NAECHSTES:

If STELLE > Len(WERT) Then

    NEUES_ZEICHEN = NEUES_ZEICHEN + Format(STELLE - STELLE_BEGINN) + Format(ZEICHEN)

    GoTo FERTIG

End If

If Mid$(WERT, STELLE, 1) = ZEICHEN Then

    STELLE = STELLE + 1

    GoTo NAECHSTES

Else

    NEUES_ZEICHEN = NEUES_ZEICHEN + Format(STELLE - STELLE_BEGINN) + Format(ZEICHEN)

    STELLE_BEGINN = STELLE

    ZEICHEN = Mid$(WERT, STELLE_BEGINN, 1)
   
End If

GoTo NAECHSTES

FERTIG:

ZEILE = ZEILE + 1

Worksheets("Tabelle1").Cells(ZEILE, 1).Select
Worksheets("Tabelle1").Cells(ZEILE, 1).NumberFormat = "@"
Worksheets("Tabelle1").Cells(ZEILE, 2).NumberFormat = "@"
Worksheets("Tabelle1").Cells(ZEILE, 3).NumberFormat = "@"

Worksheets("Tabelle1").Cells(ZEILE, 1) = Format(ZEILE)
Worksheets("Tabelle1").Cells(ZEILE, 2) = Format(Len(NEUES_ZEICHEN))
Worksheets("Tabelle1").Cells(ZEILE, 3) = NEUES_ZEICHEN

A = MsgBox("WEITER?", vbOKCancel)

If A = xlYes Then GoTo EINSPRUNG

End Sub

---

greetz Rajko

Ich hab aber die Leute nie verstanden, die in Mathe ne 1 oder so hatten! Für mich sind die Leute unlogisch!