Question

Срочно,помогите! дам много баллов!
Сумма 10 000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза (в Паскале ABC с использованием цикла While)

Answer 1

Var
  i:integer;
  x:real;
begin
x:=10000;
while x<20000 do
  begin
  x:=x*1.05;
  i:=i+1;
  end;
writeln('Ответ: ',i);  
end.