Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%. Паскаль

Question

Информатика

Калиса

14 января, 07:20

Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%. Паскаль

+1

Ответы (1)

Знаете ответ на вопрос?

Арсен · Answer 1

Var s, x, sum:real; k:integer;

begin

write ('s = ') ;

readln (s) ;

write ('x = ') ;

readln (x) ;

sum:=s; k:=0;

while sum<=2*s do

begin

k:=k+1;

sum:=sum+sum*x/100;

end;

writeln ('k = ', k) ;

end.

Пример:

s = 2000

x = 10

k = 8