| عناوین بحث ها | ارسال کننده | پاسخها | بازدید | بروز رسانی | اولویت | |
|---|---|---|---|---|---|---|
|
|
0
|
1
|
91/3/1 (22:06)
|
|
||
|
|
0
|
0
|
91/2/31 (21:18)
|
|
||
|
|
0
|
0
|
91/2/25 (01:16)
|
|
||
|
|
0
|
2
|
91/2/22 (19:26)
|
|
||
|
|
0
|
0
|
91/2/8 (21:39)
|
|
||
|
|
0
|
0
|
91/2/8 (00:26)
|
|
||
|
|
0
|
0
|
91/2/7 (19:53)
|
|
||
|
|
0
|
0
|
91/1/18 (15:29)
|
|
||
|
|
0
|
6
|
90/12/28 (17:02)
|
|
||
|
|
0
|
4
|
90/11/26 (07:24)
|
|
||
|
|
0
|
0
|
90/11/20 (11:38)
|
|
||
|
|
1
|
5
|
90/10/25 (19:32)
|
|
||
|
|
0
|
3
|
90/10/9 (11:54)
|
|
||
|
|
0
|
1
|
90/10/7 (18:48)
|
|
||
|
|
0
|
0
|
90/10/5 (01:16)
|
|
||
|
|
0
|
0
|
90/10/3 (11:03)
|
|
||
|
|
0
|
1
|
90/9/26 (14:54)
|
|
||
|
|
0
|
1
|
90/9/14 (21:53)
|
|
||
|
|
3
|
16
|
90/9/12 (11:36)
|
|
||
|
|
1
|
9
|
90/9/11 (16:37)
|
|
سلام
در الگوریتم اول منظور از بدون شرط اینه که از if استفاده نشه؟
الگوریتم دوم:
1- شروع
2- عدد 1 را چاپ کن.
3- i=2
4- j=2
5- اگر i mod j=0 آنگاه x=x+1
6- j=j+1
7- اگر j<=i-1 آنگاه بروبه 4
8- اگر x=0 آنگاه i را چاپ کن
9- x=0
10- i=i+1
11- اگر i<=50 آنگاه بروبه 3
12- پایان
اینم کدش با VB
Dim i,j,x As Integer
Console.WriteLine(1)
For i = 2 To 50
For j = 2 To i - 1
If (i Mod j = 0) Then
x = x + 1
End If
Next
If (x = 0) Then
Console.WriteLine(i)
End If
x = 0
Next i
Console.ReadLine()
End Sub
