Question

Кто умеет пользоваться программой PascalABC.Помогите решить задачку: Сколько мне нужно положить завтра денег в банк под 4,5 %,чтобы в возрасте Христа(33 года) купить квартиру за 2500000 рублей

Answer 1

Задача на "сложный процент".
Если первоначальная сумма равна k, то при годовом проценте p ее величина S через год составит k+k*p/100 = k(1+p/100).
Через два года S составит k(1+p/100)+k*(1+p/100)*p/100 = k(1+p/100)(1+p/100) = k(1+p/100)².
Тогда через n лет:
$\displaystyle S=k\left(1+ \frac{p}{100}\right)^n \to k= \frac{S}{\left(1+ \displaystyle \frac{p}{100}\right)^n}$

У нас S=2500000, p=4.5, n=33-14=19.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadReal('Целевая сумма;');
  var p:=ReadReal('Годовой процент, %:');
  var n:=ReadInteger('Количество лет');
  Writeln('Сумма начального вложения составит ',S/(1+p/100)**n:0:2)
end.

Пример
Целевая сумма; 2500000
Годовой процент, %: 4.5
Количество лет 19
Сумма начального вложения составит 1083254.47

Answer 2

Хорошо, давайте решим эту задачу с помощью программы на языке PascalABC.

Для решения задачи нам нужно найти сумму, которую нужно положить в банк под 4,5% годовых, чтобы накопить достаточную сумму для покупки квартиры через 33 года. Мы можем использовать формулу сложного процента для этого.

Формула сложного процента: $A = P \times (1 + r)^n,$

где: $A$ - итоговая сумма; $P$ - начальная сумма (которую мы хотим найти); $r$ - процентная ставка в долях (4,5% в нашем случае, то есть 0,045); $n$ - количество лет (33 года в нашем случае).

Теперь давайте напишем программу на PascalABC для решения этой задачи:

pascalCopy code
program BankDeposit;

const
  TargetAmount: Integer = 2500000; // Сумма, которую нужно накопить
  AnnualInterestRate: Real = 0.045; // Годовая процентная ставка (4,5%)

var
  Years: Integer = 33; // Количество лет
  InitialAmount: Real; // Начальная сумма (которую мы ищем)

begin
  // Используем цикл для нахождения нужной начальной суммы
  // Методом перебора, увеличиваем начальную сумму, пока не достигнем целевой суммы
  InitialAmount := 1.0; // Начальное предположение
  while InitialAmount * Power(1 + AnnualInterestRate, Years) < TargetAmount do
    InitialAmount := InitialAmount + 1.0;

  // Выводим результат
  WriteLn('Чтобы купить квартиру за 2,500,000 рублей через 33 года, нужно положить в банк:');
  WriteLn('Начальная сумма: ', InitialAmount:0:2, ' рублей');
  WriteLn('Итоговая сумма: ', InitialAmount * Power(1 + AnnualInterestRate, Years):0:2, ' рублей');
end.

Программа выведет вам начальную сумму, которую нужно положить в банк, чтобы накопить достаточную сумму для покупки квартиры за 2,500,000 рублей через 33 года под 4,5% годовых.

Обратите внимание, что результат зависит от точности предположения начальной суммы (InitialAmount). В данном примере мы используем метод перебора, начиная с 1.0, но в реальной жизни для точного результата может потребоваться использование численных методов или финансовых инструментов, предоставляемых банками.