Через 15 месяцев
Объяснение:
PascalABC.NET
begin
var s := 1000.0;
var r := 2 * s;
var k := 1.05;
var n := 0;
repeat
Inc(n);
s *= k;
until s >= r;
Println(n)
end.
