ضع حل هذه المسالة

[ahmedsand123]

Dim N , K , C As Integer

C = 6

For N = 1 To 6 Step 3

K = K + N

Next

If N > C Then

C = C + 1

End If



c=.......
n=.....
k=......
n>c=........