Задача: Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить, в какой день он пробежит больше 20 км.
Решил так:
Код:
Sub zadacha1()
Dim probeg, day
day = 1 'задаем начальное значение дня
probeg = 10 'задаем начальное значение пробега
Do 'начало цикла
day = day + 1 'увеличиваем день на 1
probeg = probeg * 1.1 'и увеличиваем пробег на 10%
Loop While probeg <= 20 'проверка условия повторения цикла
MsgBox ("probeg = " & probeg & " day = " & day) 'выводим пробег и день
End Sub
Вопрос: Обосновать цель цикла и переменную цикла и откуда она взялась. Не совсем понимаю чего от меня хотят. Прошу помочь разобраться.