خرد کردن

خرد کردن  
تعداد دفعات ممکن خرد کردن اسکناس 2000 ریالی بکمک سکه های 50 ؛ 100 و 250 ریالی به شرط اینکه از هر سکه حداقل یکی باشد .

Cls

K = 0

For P = 1 To 33

For S = 1 To 17

For D = 1 To 7

Let sum = P * 50 + S * 100 + d * 250

If Sum = 2000 Then k = k + 1

Next D , s , p

Print K

End