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

Узнай цену своей работы

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

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

Решение задачи: «Способы расплатиться за мороженое»

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("<br>")
        lb.Items.Add("Всего вариантов: " & lb.Items.Count - 1.ToString)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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