Zahl über Permutation finden
alifa
Wenn es nicht zu aufwendig sein sollte, könnte mir jemand hier helfen?
Option Explicit
'Ich suche eine dreistellige Zahl abc.
'Dabei gilt:
'a) a ist größer als b und b ist größer als c.
'b) Alle Ziffern sind größer als 0.
'c) Eine der Permutationen (*) von abc ist ein Vielfaches einer quadrierten Quadratzahl.
'd) Eine andere Permutation ist durch 17 teilbar.
'e) Eine weitere Permutation ist durch 13 teilbar.
Sub ZahlGesucht_1()
Dim n%, z%, t!
t = Timer
For n = 321 To 987
If Mid(n, 1, 1) > Mid(n, 2, 1) And Mid(n, 2, 1) > Mid(n, 3, 1) _
And Mid(n, 3, 1) 0 And Mid(n, 2, 1) 0 Then
If CInt(Mid(n, 1, 1) & Mid(n, 3, 1) & Mid(n, 2, 1)) Mod 16 = 0 Then
Cells(z + 1, 1) = n
z = z + 1
End If
End If
Next
MsgBox " fertig in" & Round(Timer - t, 2) & " Sec"
End Sub
Ich habe das so angefangen, glaube aber, es geht auch einfacher.
Gruß, Erhard