{* Задача403 *}

REM basic

' На день вашего рождения тётя положила на ваш счёт 1000 р.. Каждый год к вкладу добавляется s процентов годовых. Составить программу, которая вычисляет через сколько лет будет r рублей? Какой размер вклада будет через 16 лет?


CLS
INPUT "vvedite procentnuju stavku"; s
INPUT "vvedite r"; r
a = 1000
If r < a Then r = a
q = a * (1 + s / 100) ^ 16
Do Until a >= r
    i = i + 1
    a = a * (1 + s / 100)
Loop
PRINT {na schetu budet 'r' cherez"; i
}PRINT "cherez 16 Let na schetu budet"; q
End