Hier mal ein kleines Skript zum Berechnen der Primzahlen bis 1000:
[autoit]For $n = 2 To 100 Step 1
$prime = 0
For $x = 2 To Ceiling($n/0.5) Step 1
If $x > 2 And Mod($x, 2) = 0 Then
Else
If Mod($n, $x) == 0 And ($n/$x > 1) Then
ConsoleWrite($n & ' equals ' & $x & ' * ' & $n/$x & @CRLF)
$prime = 1
ExitLoop
EndIf
EndIf
Next
If $n > 1 And $prime = 0 Then
ConsoleWrite($n & ' is a prime number' & @CRLF)
EndIf
Next
Wenn man den Kommentar in Zeile 7 entfernt, erhält man gleich die Information, weshalb die andern Zahlen keine Primzahlen sind.
Ich weis, das ist nichts neues, oder aufregendes (, oder gutes), aber mir war langweilig.
MfG, James C.