Dim k As String, r As Integer, d As Integer, p As Integer, n As Integer

txtРазмен = ""

k = InputBox("Введіть суму грошей, яку бажаєте розміняти", "Розмін")

n = Val(k)

lblСумма.Caption = "Ваша сума " + Str(n) + " грн."

For r = 0 To n 'r — можлива кількість купюр по 1 грн.

For d = 0 To n / 2 'd — можлива кількість купюр по 2 грн.

For p = 0 To n / 5 'p — можлива кількість купюр по 5 грн.

If 1 * r + 2 * d + 5 * p = n Then 'Якщо сума грошей з купюр по 1, 2, 5 грн. дорівнює сумі,

Яку треба розміняти, то цей варіант розміну друкується в текстовому полі

txtРазмен.Text = txtРазмен.Text + (Str(r) + " x 1 грн " + Str(d) + " x 2 грн " + Str(p) + " x 5 грн ") + Chr(13)

End If

Next p

Next d

Next r

End Sub

5. Сохраните проект с именем Лр9_Зад6 _Фамилия

6. Запустите проект. Проанализируйте результат.

ЗАВДАННЯ 9.7. ОПРЕДЕЛИТЬ, СКОЛЬКО СУЩЕСТВУЕТ ВАРИАНТОВ РАЗМЕНА СУММЫ 3 РУБ. 20 КОП., ЕСЛИ У ВАС ИМЕЮТСЯ МОНЕТЫ ДОСТОИНСТВОМ 2 РУБ., 1 РУБ., 50 КОП., 10 КОП.

ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)

ЗАВДАННЯ 9.8 ВЫВЕСТИ НА ФОРМУ СЛЕДУЮЩУЮ ИНФОРМАЦИЮ:

ЗАВДАННЯ 9.9. СОСТАВИТЬ ПРОГРАММУ, ПОЗВОЛЯЮЩУЮ РАСПЕЧАТАТЬ ПРОСТЫЕ НАТУРАЛЬНЫЕ ЧИСЛА В ДИАПАЗОНЕ ОТ 1 ДО 100.

ЗАВДАННЯ 9.10. ЕСЛИ ТРЕХЗНАЧНОЕ ЧИСЛО РАВНО СУММЕ КУБОВ ЧИСЕЛ, ОБРАЗУЮЩИХ ЭТО ЧИСЛО, ТО ТАКОЕ ЧИСЛО НАЗЫВАЕТСЯ "МАГИЧЕСКИМ". НАЙТИ ВСЕ МАГИЧЕСКИЕ ЧИСЛА.

ЛАБОРАТОРНА РОБОТА №10. ПРОЕКТУВАННЯ ДОДАТКІВ VB6, У ЯКИХ ДАНІ ОРГАНІЗОВАНІ У ВИГЛЯДІ ОДНОВИМІРНИХ МАСИВІВ. ЗАНЯТТЯ 1.