Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей. Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. ТОЛЬКО НА ПАСКАЛЕ

Для решения задачи на языке Pascal нужно написать программу, которая по заданным значениям x (начальная сумма вклада в рублях), p (процент увеличения вклада каждый год) и y (целевая сумма вклада) вычисляет, через сколько лет сумма на счету станет не менее y рублей. Учтите, что в процессе расчета дробная часть копеек каждый год отбрасывается.

Описание решения

Алгоритм решения задачи заключается в том, чтобы каждый год увеличивать вклад на p процентов и округлять результат до целых рублей (отбрасывая копейки). Нужно повторять этот процесс, пока вклад не станет больше или равен y.

Шаги:

1. Ввести начальные значения x, p, y.
2. Используя цикл, каждый год увеличивать вклад на p процентов, при этом отбрасывая дробную часть копеек (используем целочисленное деление).
3. Счетчик лет (years) будет увеличиваться на каждой итерации цикла.
4. Как только вклад станет больше или равен y, цикл завершается, и программа выводит количество лет.

Программа на Pascal:

pascal
program DepositGrowth;
var
  x, p, y: LongInt;
  years: Integer;
begin
  { Ввод начальных значений }
  ReadLn(x, p, y);
  years := 0;
  
  { Пока сумма вклада меньше y }
  while x < y do
  begin
    { Увеличиваем вклад на p процентов, отбрасывая копейки }
    x := x + (x * p) div 100;
    { Увеличиваем счётчик лет }
    Inc(years);
  end;
  
  { Выводим количество лет }
  WriteLn(years);
end.

Пояснение:

1. Ввод данных:

   • Программа запрашивает три натуральных числа: начальный вклад x, процент увеличения вклада p и целевую сумму y.

2. Основной цикл:

   • Внутри цикла while каждый год происходит увеличение вклада на p процентов.
   • Для вычисления суммы после увеличения используем выражение x := x + (x * p) div 100;. Это выражение увеличивает вклад на целую часть процентов и автоматически отбрасывает дробную часть (копейки).
   • После каждого года увеличиваем счётчик years с помощью процедуры Inc(years).

3. Окончание работы:

   • Когда сумма вклада станет больше или равна y, программа выходит из цикла и выводит количество лет.

Пример работы программы:

Пример 1:

makefile
Ввод:
100 10 200
Вывод:
8

Объяснение: вклад увеличивается на 10% каждый год, и через 8 лет сумма вклада достигнет 200 рублей.

Пример 2:

makefile
Ввод:
500 5 1000
Вывод:
15

Объяснение: вклад с 500 рублей, увеличиваясь на 5% ежегодно, достигнет 1000 рублей через 15 лет.

Заключение:

Эта программа решает задачу по вычислению количества лет, необходимых для того, чтобы вклад стал не менее заданной суммы, с учетом того, что дробная часть копеек отбрасывается каждый год.