[tafatahoahmed123]

ممكن حد يعرفني ازاي أحل المسائل دية .
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