Question

Запишите на языке Паскаль алгоритм решения задачи. Клиент некоторого банка 1 марта открыл счёт, вложив 10000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить через сколько месяцев размер вклада превысит 12000 руб. ПОМОГИТЕЕ СРОЧНО!!!

Answer 1

var

 month, sum: real;

begin

 sum := 10000;

 month := 0;

 while (sum < 12000) do

 begin

   sum := sum + (sum / 100) * 2;

   month := month + 1;

 end;

 writeln('Через ',month,' месяцев размер вклада превысит 12000 руб');

end.

Answer 2

Для решения этой задачи на языке Паскаль, можно использовать следующий алгоритм:

pascalCopy code
program BankDeposit;

var
  initialDeposit, targetDeposit: Real;
  months: Integer;

begin
  initialDeposit := 10000; // Начальный размер вклада
  targetDeposit := 12000; // Целевая сумма вклада
  months := 0; // Начальное количество месяцев

  // Пока размер вклада не превышает целевую сумму, увеличиваем его каждый месяц
  while initialDeposit < targetDeposit do
  begin
    initialDeposit := initialDeposit + initialDeposit * 0.02; // Увеличение вклада на 2%
    months := months + 1; // Увеличение счетчика месяцев
  end;

  writeln('Через ', months, ' месяцев(а) размер вклада превысит 12000 руб.');
end.

В данном алгоритме переменная initialDeposit представляет начальный размер вклада, а targetDeposit - целевую сумму, которую клиент хочет достичь. Затем, используется цикл while, который выполняется до тех пор, пока размер вклада initialDeposit не станет больше или равным targetDeposit. На каждой итерации цикла размер вклада увеличивается на 2% от имеющейся суммы. Количество месяцев записывается в переменную months, которая затем выводится на экран.

Программа выполнит расчет и выдаст, через сколько месяцев размер вклада превысит 12000 рублей.