برنامه ای بنویسید که 10 عدد از اکسل خوانده اول بودن آنها را بررسی کند؟
البته من برنامه اول بودن یک عدد رو دارم ولی وقتی تعداد اعداد 10 تا میشود باید چجوری بنویسم.
البته من برنامه اول بودن یک عدد رو دارم ولی وقتی تعداد اعداد 10 تا میشود باید چجوری بنویسم.
کد PHP:
Sub prime()
n = Cells(1, 1)
div = 0
For i = 1 To n
j = n \ i
If 0 = n - i * j Then
div = div + 1
End If
Next i
If div = 2 Then
Cells(1, 2) = "yes"
Else
Cells(1, 2) = "no"
End If
End Sub
کامنت