Hi,
wer von euch findet die schnellste Routine, um dieses Rätsel zu lösen? 
Okay, um Vergleichbarkeit herstellen zu können eine Prämisse. Es müssen alle 6-stelligen Zahlen gepürft werden!
Mega
Ich erhalte nur beim dreifachen eine gültige Lösung.
For $i= 100000 to 111111
If $i * 9 = Int(StringMid(String($i),3,4)&StringMid(String($i),1,2)) then MsgBox(0,"Gefunden","Die gesuchte Zahl ist :"&$i)
Next
Nach deinem Edit:
[autoit]For $i = 100000 To 999999
If $i * 9 = Int(StringMid(String($i), 3, 4) & StringMid(String($i), 1, 2)) Then
MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
Exit
EndIf
Next
Edit, hab ja ganz vergessen das in Autoit Typen Wurst sind:
[autoit]For $i = 100000 To 999999
If $i * 9 = StringMid($i, 3, 4) & StringMid($i, 1, 2) Then
MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
Exit
EndIf
Next
Noch kürzer:
[autoit]For $i = 100000 To 999999
If $i * 9 = StringRight($i,4) & StringLeft($i, 2) Then Exit MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
Next
Raupi : Bei mir kommt mit deinem Script aber eine Zahl raus, die garnich das Neunfache / ein Neuntel ist...
Hier mein Script, aber nich sonderlich toller Code, scheint keine Zahl zu geben, die die Anforderungen erfüllt 
HotKeySet("{SPACE}", "Text")
HotKeySet("{ESC}", "_Exit")
For $i = 100000 To 999999 Step + 1
Global $_01 = String($i)
$_02 = StringRight($_01, 2)
$_03 = StringTrimRight($_01, 2)
$_04 = $_02 & $_03
$_05 = Int($_04)
;MsgBox(0, "", "''" & $i & " - " & $_05 & "''")
If $i * 9 = $_05 Then
MsgBox(0, "", "''" & $i & " - " & $_05 & "''")
Exit
EndIf
Next
MsgBox(0, "", "Kein Erfolg")
Func Text()
MsgBox(0, "", "''" & $_01 & "''")
EndFunc
Func _Exit()
Exit
EndFunc
Edit: Entweder hab ich ein Verständnisproblem der Aufgabe, oder Raupis "noch-kürzerer" Code sollte so lauten:
For $i = 100000 To 999999
If $i * 9 = StringRight($i,2) & StringLeft($i, 4) Then Exit MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
Next
Ich meine auch, dass Raupis Script schlicht falsch ist.
Korrigiert:
For $i = 100000 To 999999
If $i * 9 = StringMid($i, 5, 2) & StringMid($i, 1, 4) Then
MsgBox(0, "Gefunden", "Die gesuchte Zahl ist :" & $i)
Exit
EndIf
Next
Ergebnis bei mir : nach 6.7 Sekunden keine Lösung
Dafür, dass meine Kiste über 2 Milliarden Befehle pro Sekunde reinzieht, ist das schon ziemlich langsam.
Xenobiologist : Hübsches Programm, aber rechne mal das Ergebnis nach...
Xeno dein Prog wirft 107897 aus * 9 = 971073
Edit: Steinigt mich nicht, habe nicht verstaden was Xeno geschrieben hat und es umgedreht in meinem Script. 
Ausserdem gibt es keine Lösung auf Xenos Aufgabe.
Das stimmt nur dann, wenn man einen krassen Rundungsfehler in Kauf nimmt.
Mathematisch ist das schlicht falsch.
Darf man ein Programm so weit optimieren, dass das Ergebnis nicht mehr stimmt ?
Ich verstehe deine Logic nicht was hat das Ganzahlabrunden jetzt mit deiner Aufgabenstellung zu tun?
Es gibt keine Lösung für deine Aufgabenstellung.
Es gibt eine 6-stellige Zahl
wenn man deren letzte 2 Ziffern hinten abschneidet
und vorne davor setzt
ergibt das genau das 9-fache der ursprünglichen Zahl
Von Zurechtschustern und Ganzahlrundung steht da aber nix 
Wenn man die Aufgabenstellung umändert in:
Es gibt eine 6-stellige Zahl
wenn man deren ersten 2 Ziffern vorne abschneidet
und hinten anhängt
ergibt das genau das 9-fache der ursprünglichen Zahl
DanngGibbet sogar ein gültiges Ergebnis. Siehe mein Script 
Super Lösung - runden wir es uns schön...
War jetzt hoffentlich nicht dein Ernst dass du das wirklich jemanden als eine Lösung anbieten willst?
Wie Raupi schon sagte: Dein Ergebnis hat mit der Aufgabenstellung rein gar nix zu tun.
Wenn man wirklich schnell sein will sollte man hier eher mathematisch überlegen welche Zahlen überhaupt in Frage kommen und so die abzufragende Zahlenmenge zu verkleinern.
Z.B. ist die größte mögliche Zahl 111111 weil darüber nur noch 7-stellige Zahlen herauskommen würden.
Da die Zahl also zwischen 100000 (muss ja eine 6-stellige Zahl sein) und 111111 liegen kann kommen nur 2 Zahlen für die ersten beiden Stellen in Frage: 10 und 11.
Ergo kommen als letzte Ziffern für die Zahl nur 90 und 99 in Frage.
Daher kann man die überhaupt möglichen Zahlen welche man testen muss schon mal mindestens auf nur noch 22 eindämmen.
Dann ist so eine Rechnung auch deutlich schneller machbar (und man wird feststellen das es keine Lösung gibt):
Global $i = 100090, $n = 0
ConsoleWrite(" i 9*i <i_neu> " & @CRLF & "------------------------" & @CRLF)
Do
If Mod($i, 100) = Int(StringLeft(9*$i,2)) Then
ConsoleWrite($i & @TAB & $i * 9 & @TAB & Int((Mod($i, 100) * 1e4) + $i/100) & @CRLF)
$n += 1
EndIf
If Mod($i, 100) = 90 Then
$i += 9
Else
$i += 91
EndIf
Until $i > 111111
ConsoleWrite ("Gesamtanzahl möglicher Zahlen: " & $n & @CRLF)
Junx, entspannt euch.
Da steht Rätsel! Es ist keine wirkliche Scherzfrage, aber dennoch sollte klar sein, dass einfaches Rechnen nicht zum Ziel führt. Es sollte schon ein bißchen probiert werden. 
Sorry, wenn ihr jetzt von einer mathematisch hoch wertvollen Aufgabe ausgegangen seid.
Mega
Ahja, schon Klar.
Ist dann sowas wie: Wie bekomme ich 2 Elefanten in den Kühlschrank?
Ganz einfach: Tür auf, 2 Elefanten rein, Tür zu.
Sinn macht das nicht, aber ist eine gute ABM.
@Xeno
Das haben wir gern, erst Schummeln und dann auch noch faule Ausreden. 
Setzen, Note 6!
