Составьте программу, вычисляющую, сколько лет потребуется для удвоения вложенной суммы при годовом приросте 10%.
Begin var s := 100.0; var s1:= s; var n := 0; repeat s1:= s1 + 0.1*s1; n := n+1; until s1 >= 2 * s; writeln(n);end.
получается 8 лет
Спасибо!
это правило может ошибаться только при R>10%,
при всех остальных r оно дает довольно точные результаты
возможно вы рассматриваете базовый год как первый?
что такое базовый год?
Есть такое правило, называется правило 70 T~=70/r T-колличество лет R - годовой процент роста Потребуется примерно 7 лет
Программа на Pascal ABC
ваше правило 70 конечно возле но с ошибкой около полутора лет
begin for var i := 1 to 99 do begin var s := 100.0; var s1:= s; var n := 0; repeat s1:= s1 + i/100*s1; n := n+1; until s1 >= 2 * s; writeln(i , ' - ',n - 70/i); end; end.