Question

ДАМ 50 БАЛЛОВ! Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10% СДЕЛАЙТЕ В VB

Answer 1

Dim days As Double 
Dim percent As Double 
Dim baseKM As Double 
Dim result As Double 
days = 7 
percent = 10 
baseKM = 10 
result = baseKM 
For i = 1 To days 
result += (result * percent) / 100 
Next 
Print(result)