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

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)

Comments

vb

---

И давно в VB появился Print ?

---

По += могу предположить, что имелся в виду VB.NET