Определить, через сколько месяцев размер вклада вырастет с 26000 до 30 000 при 1,3% ежемесячной маржи - VB

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

Гражданин 1 февраля открыл счет в банке вложив 26 000 рублей.через каждый месяц размер вклада увеличивается на 1.3% от имеющейся суммы. Определить через сколько месяцев размер вклада превысит 30 000 рублей.

Решение задачи: «Определить, через сколько месяцев размер вклада вырастет с 26000 до 30 000 при 1,3% ежемесячной маржи»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
a = 26000
i = 0
Do While a < 30000
 i = i + 1
 a = a * (1.013)
 Print "ГЊГҐГ±ГїГ¶ = "; i; "Г‚ГЄГ«Г*Г¤, Г°ГіГЎ. = "; a \ 1
 DoEvents
Loop
End Sub
                        

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

11 голосов , оценка 3.909 из 5

Похожие ответы