Question

Pascal ABC Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить прирост суммы вклада за N месяцев.

Answer 1

Ответ:

1000-100%

N-2%

2*1000:100=2000:100=20рублей каждый месяц.

Answer 2

Привет! Давайте напишем программу на Pascal ABC, которая решит эту задачу. Вот пример кода:

pascalCopy code
program DepositIncrease;

var
  initialDeposit, monthlyIncreasePercent: real;
  months: integer;
  currentDeposit: real;

begin
  // Ввод начального вклада и процента увеличения в месяц
  write('Введите начальный вклад: ');
  readln(initialDeposit);
  
  write('Введите процент увеличения в месяц: ');
  readln(monthlyIncreasePercent);
  
  // Ввод количества месяцев
  write('Введите количество месяцев: ');
  readln(months);

  // Вычисление прироста суммы вклада за N месяцев
  currentDeposit := initialDeposit;
  for var i := 1 to months do
  begin
    currentDeposit := currentDeposit * (1 + monthlyIncreasePercent / 100);
  end;

  // Вывод результата
  writeln('Прирост суммы вклада за ', months, ' месяцев: ', currentDeposit - initialDeposit:0:2, ' руб.');
end.

Этот код запрашивает у пользователя начальный вклад, процент увеличения в месяц и количество месяцев. Затем он использует цикл для вычисления размера вклада после каждого месяца с учетом увеличения на 2% от имеющейся суммы. Результат выводится на экран.

Обратите внимание, что в данном коде не предусмотрено обработка ошибок ввода, и пользователь должен вводить корректные данные. В реальном приложении стоило бы добавить соответствующую обработку ошибок.