Помогите решить задачу в Паскале:Сумма 10 тысяч рублей положена в банк,при этом прирост составляет 5% годовых.Составьте алгоритм,определяющий через какой промежуток времени первоначальная сумма увеличится в 2 раза

program test;var years, start:real;begin  years := 0;  start := 10000;  while start < 20000 do  begin    start := start + start / 100 * 5;    years := years + 1;  end;  writeln(years:0:0, ' years');readln();end.

Твоя программа не будет работать правильно

 Вот как надо

var years, start:real;begin  years := 0;  start := 10000;  while start < 20001 do  begin    start := start + start / 100 * 5;    years := years + 1;  end;  writeln(years:0:0, ' years');readln();end.

  4 минуты тому