Question

На языке программирования Паскаль написать решение задачи. Сумма 15000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. Составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза

Answer 1

Ответ:

var

 i:integer;

 x:real;

begin

x:=15000;

while x<30000 do

 begin

 x:=x*1.05;

 i:=i+1;

 end;

writeln('Ответ: ',i);  

end.  

Answer 2

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

pascalCopy code
program SavingsCalculator;

const
  initialAmount: Real = 15000; // начальная сумма вклада
  growthRate: Real = 0.05;     // годовой прирост (5%)

var
  currentAmount: Real;
  years: Integer;

begin
  currentAmount := initialAmount;
  years := 0;

  while currentAmount < initialAmount * 2 do
  begin
    currentAmount := currentAmount + currentAmount * growthRate;
    years := years + 1;
  end;

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

Программа вычисляет, через сколько лет первоначальная сумма увеличится в два раза с учетом годового прироста 5%. Она использует цикл while, чтобы увеличивать текущую сумму на прирост до тех пор, пока она не станет больше или равной удвоенной начальной сумме. Когда это условие выполнится, программа выведет количество лет, прошедших до этого момента.

Не забудьте сохранить этот код в файле с расширением .pas и запустить его в среде разработки Pascal для получения результата.