Question

Помогите составить задачу на языке Паскаль:
В 1990 году на счет положили 5000 рублей под 14% годовых. В каком году вклад достигнет 1000000 рублей.

Answer 1

program Project1;

var money: real; year:integer;

begin
  money:=5000;
  year:=1990;
  repeat
    money:=money+(money*14)/100;
    inc(year);
  until money >= 1000000;

  writeln('Result:=', year);

  readln;
end.