Способы расплатиться за мороженое - Visual Basic .NET

Формулировка задачи:

У Вас R рублей. Вы решили потратить все их на мороженое. В магазине есть два сорта мороженого - по А и по В рублей. Выведите все способы купить мороженое "на все" (сдача не должна превышать стоимость порции мороженого) Заранее спасибо за помощь.

Код к задаче: «Способы расплатиться за мороженое - Visual Basic .NET»

textual
Dim r As Integer = Val(TextBox1.Text)
        Dim a As Integer = Val(TextBox2.Text)
        Dim b As Integer = Val(TextBox3.Text)
        Dim n, m As Integer
 
        For i = 0 To r Step a
            n += 1
            m = 0
            For j = i To r Step b
                m += 1
            Next
            lb.Items.Add(n - 1 & " шт. по " & a & " руб.  и  " & m - 1 & " шт. по " & b & " руб.")
        Next
        lb.Items.Add("________________________________")
        lb.Items.Add("Всего вариантов: " & lb.Items.Count - 1.ToString)

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ