Составить программу, которая вычисляет, через сколько лет удвоится вклад в банке, если...

Question

Составить программу, которая вычисляет, через сколько лет удвоится вклад в банке, если начальная сумма S, процент годовых R.
В "PascalABC"

Answer 1

Var
s, r, k:real;
ans:integer;
begin
Read(s,r);
k:= s; ans:= 0;
While (k < 2 * s) do begin
  ans:= ans + 1;
  k:= k + k * (r/100);
end;
Writeln(ans);
end.

Примеры:
````````````````````
100 20
4
````````````````````
100 100
1

Comments

Аригато! Извини, случайно отметил лучшим не твоё решение, но плагиатчицу зарепортил.