Некто кладет в банк сумму в А рублей под p% годовых. Какая сумма окажется ** счете через...

Question

Некто кладет в банк сумму в А рублей под p% годовых. Какая сумма окажется на счете через год? Через два года?

программа PascalABC

Answer 1

// PascalABC.NET (версия 3.2, сборка 1363)

var
  a, p: integer;
function GetDepositValue(a, p, n: integer): real;
begin
  GetDepositValue := a * Power(1 + p / 100, n);
end;
begin
  a := ReadInteger('a = ');
  p := ReadInteger('p = ');
  writeln('Через год: ', GetDepositValue(a, p, 1):1:2);
  writeln('Через два года: ', GetDepositValue(a, p, 2):1:2);
end.