الگریتم غربال گری اراتوستن درسته اما این برنامه ی شما اونو درست اجرا نمی کنه من حتی در QB هم امتحان کردم فقط 2 و 3 رو نشون می ده!!!!!!!!!!!!!!!!! اگر درست جواب داده پس کد اصلاح شده رو بزارید اگه هنوز جواب نداده برنامه ی شما رو به همون غربال گری اصلاح کنیم..
کد غربال گری اراتوستن هم هست:
کد:
Cls
Dim a(1000)
For b = 1 To 1000
a(b) = b
Next b
For c = 2 To 1000
If a(c) <> 0 Then
For d = 2 To 1000
s = c * d
If s <= 1000 Then a(s) = 0
Next d
End If
Next c
For e = 2 To 1000
If a(e) <> 0 Then Print a(e)
Next e
الان نوشتمش اگه اشکلی داشت بگو !!!