Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза...

Question

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

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<br> begin
 k:=k+1;
 sum:=sum+sum*x/100;
 end;
writeln('k = ',k);
end.

Пример:
s = 2000
x = 10
k = 8