Question

Сумма 10 000 рублей положена в банк. Прирост - 5% годовых. Через сколько лет сумма увеличится вдвое?
Составить программу на Паскаль

Answer 1

program qq;
var years:integer;
var res, a:double;
begin
  res:=10000;
  a:=res*2;
  years:=0;
    while (res < a) do
    begin
      res:=res + (res/100)*5;
      years:=years+1;
    end;
  write(years);
end.

cb5d918e5cdd13fb1b708154803335b0.pas