Question

100 БАЛОВ !!!!!!!!!!!!!!! используя оператор repeat Задача. Сумма 8000 рублей положена в сберегательный банк, при этом прирост составляет 4% годовых. Напишите на языке Паскаль программу, определяющую, через какой промежуток времени первоначальная сумма увеличится в 4 раза.

Answer 1

Ответ:

var years, start:real;

begin

years : = 0;

start : = 8000;

while start < 16001 do

begin

start : = start + start / 80 * 4;

years : = years + 1;

end;

writeln (years:0:0, ' years');

readln ();

end.

Вроде-бы так, но я не уверен

Answer 2

Конечно, вот программа на языке Паскаль, которая решает данную задачу с использованием оператора repeat:

pascalCopy code
program BankDeposit;

var
  initialAmount, targetAmount, interestRate: Real;
  years: Integer;

begin
  initialAmount := 8000;
  targetAmount := initialAmount * 4;
  interestRate := 0.04;
  years := 0;

  repeat
    initialAmount := initialAmount + initialAmount * interestRate;
    years := years + 1;
  until initialAmount >= targetAmount;

  writeln('Через ', years, ' лет первоначальная сумма увеличится в 4 раза.');
end.

Этот код начинает с заданной начальной суммы в размере 8000 рублей и прироста 4% годовых. Он затем использует оператор repeat для увеличения суммы на процент каждый год, пока она не станет больше или равной четырем начальным суммам. Когда это произойдет, программа выведет количество лет, через которое первоначальная сумма увеличится в 4 раза.