Учеба и наука

Помогите пожалуйста решить задачу в программе паскаль абс Вкладчик положил в банк 1000 у. е. ежегодно сумма вклада увеличивается на 3%. Через сколько лет сумма вклада составит 3000 у. е. - вопрос №1707827

ноябрь 13, 2015 г.

  • Всего ответов: 1

  • Вот так можно:
    var i: integer;
        s: real;

    begin
     s:=1000;
     i:=0;
     while s<3000 do
      begin
       s:=s*1.03;
       i:=i+1;
      end;
     writeln(s:8:2,' через ',i, ' лет.');
    end.

    ноябрь 13, 2015 г.
    Ответ понравился автору