Question

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

Answer 1

Var sum, required_sum, percent : real;
years : integer;
Begin
  read(sum, percent, required_sum);
  if percent > 1 then percent := percent / 100;

  repeat
    sum := trunc(100 * sum * (1 + percent)) / 100;
    years := years + 1;
    writeln(years, ' sum = ', sum);
  until sum >= required_sum;

  writeln(years);
End.

Answer 2

Для решения данной задачи на Паскале можно использовать цикл while. Внутри цикла будем увеличивать сумму вклада на p процентов и проверять, достигла ли она значения y. Если да, то выводим количество лет, прошедших с начала вклада.

Вот пример кода на Паскале:

program BankDeposit;
var
  x, p, y, years: integer;
begin
  readln(x, p, y);
  years := 0;
  while x < y do
  begin
    x := x + (x * p) div 100;
    years := years + 1;
  end;
  writeln(years);
end.

Программа считывает значения x, p и y с помощью функции readln. Затем инициализируется переменная years, которая будет хранить количество лет. Внутри цикла while происходит увеличение суммы вклада на p процентов с помощью формулы `(x * p) div 100`, где `div` - операция целочисленного деления. Затем переменная years увеличивается на 1. Цикл продолжается, пока сумма вклада x не станет больше или равной y. После выхода из цикла программа выводит количество лет с помощью функции writeln.

Например, если на входе у нас значения x = 1000, p = 10, y = 2000, то программа выведет число 8, что означает, что через 8 лет вклад составит не менее 2000 рублей.

Примечание: В данном ответе использованы результаты поиска, но не было возможности найти точные источники, поэтому приведены только номера источников.