Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в своё дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?

Question

Информатика

Эвелинка

11 февраля, 13:08

Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в своё дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?

+5

Ответы (1)

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

Петря · Answer 1

var i:integer;

k, r, p, a:real;

begin

read (k, p, r) ;

i:=1;

while k>r do

begin

a: = (k-r) + (k-r) * p/100;

if a>k

then break;

k: = (k-r) + (k-r) * p/100;

i:=i+1

end;

if a>k

then writeln ('NO')

else writeln (i) ;

end.