طريقة الحل الامثل بدون تعب

[ahmedabotraka]

Dim n, k, c As Integer
c=10
For n = 1 To 10 Step 5
k(-k + n)
Next
If n >= c Then
c = c + 1
End If
عاوز قيمة c ,k ,n

طريقة الحل الامثل بدون تعب
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــ
عدد مرات التكرار n k
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــ
1 0+1=1 1 تكون قيمة n 11
2 1+6= 7 6 قيمة 7 k
3 7+11= 18 11
التفرع f n >= c Then اى 10<11 ناتج التعبير الشرطى هو trueا اذن قيمة c=10+1وهى 11 الاستاذ / ابراهيم فارس