دوستان به چه صورت می تونم مجموع کامل اعداد اول رو بدست بیارم
ممنون
Printable View
دوستان به چه صورت می تونم مجموع کامل اعداد اول رو بدست بیارم
ممنون
مجموعه کامل اعداد اول رو حتی با داشتن ابر کامپیوتر هم نمی توانی دست بیاوری چون نا محدود است،
اما می شه برنامه ای نوشت که به عنوان مثال اگر عدد 1000 رو در اون وارد کردی، اعداد اول زیر 1000 رو برات لیست کنه،
نوشتن این برنامه سادست فقط باید به تعریف اعداد اول توجه کنی:
عدد اول عددی است که فقط بر خودش و یک بخش پذیر است،
کافی یه حلقه بزاری و بخش پذیری عدد (یا اعداد) مورد نظر رو چک کنی...
موفق باشی.
بزرگوار اشتباه شده بود تو نوشتن .ببخشید
برنامه ای که n عدد رو از ورودی بگیره و مجموع کامل اعداد رو بدست بیاره؟
برنامه نياز به يك commandbutton و دو textbox دارد.
Private Sub Command1_Click()
If Text1.Text <> "" Then
For i = 1 To Text1.Text
s = s + i
Next i
Text2.Text = s
End If
End Sub
بزگوار ممنونم ولی می خوام مثلا عدد 28 یا 8 رو زدم مجموع اعداد کاملش رو تویه یه لیست بهم نشون بده ؟نقل قول: