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

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

vars, r, k:real;ans:integer;beginRead(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 204````````````````````100 1001