Людина поклала у банк певну суму грошей. Щорічно банк додає до суми А наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Яка сума буде на рахунку через N років? (Програму написати мовою Delphi).
Людина поклала у банк певну суму грошей. Щорічно банк додає до суми А наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Яка сума буде на рахунку через N років? (Програму написати мовою Delphi).
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.