Людина поклала у банк певну суму грошей. Щорічно банк додає до суми А наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Яка сума буде на рахунку через N років? (Програму написати мовою Delphi).

Предыдущий
вопрос Следующий
вопрос

program BankDeposit;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
sum, A: Double;
percent: Integer;
N, i: Integer;

begin
Write('Вкажіть початкову суму грошей: ');
ReadLn(sum);
Write('Вкажіть річний відсоток: ');
ReadLn(percent);
Write('Вкажіть кількість років: ');
ReadLn(N);

A := percent / 100;

for i := 1 to N do
begin
sum := sum + sum * A;
end;

WriteLn('Сума на рахунку через ', N, ' років буде: ', sum:0:2);
end.