Составьте программу, которая определяет, через сколько лет сумма S, положенная в банк под процент P с годовой капитализацией, увеличится в 5 раз.

Question

Информатика

Генрих

23 июня, 04:51

Составьте программу, которая определяет, через сколько лет сумма S, положенная в банк под процент P с годовой капитализацией, увеличится в 5 раз.

+4

Ответы (1)

Знаете ответ?

Марюня · Answer 1

Var year: Integer; s, s1, p: Real;

Begin

write ('Сумма: ') ; readln (s) ;

write ('Процент: ') ; readln (p) ;

s1 : = s; year : = 0;

while s * 5 > s1 do

begin

s1 : = s1 + s1 * p / 100;

year : = year + 1;

end;

write (year) ;

End.