Question

Нужно полностью решение в паскале.Задача: Начальный вклад в банке равен 1000 рублей. Через каждый месяц размер вклада увеличивается на 5%. Через сколько месяцев размер вклада превысит 1100 рублей?

Answer 1

Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do begin
sum:=sum+(sum*0.05);
mes:=mes+1;
end;
writeln (mes:2:0);
readln;
end.
Программа работает корректно. Выводит 2

Answer 2

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

program BankDeposit;
var
  deposit, target: real;
  months: integer;
begin
  deposit := 1000; // начальный вклад
  target := 1100; // целевая сумма

months := 0;
  while deposit < target do
  begin
    deposit := deposit + deposit * 0.05; // увеличение вклада на 5%
    months := months + 1;
  end;

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

В данной программе используется переменная `deposit` для хранения текущего размера вклада, переменная `target` для хранения целевой суммы (1100 рублей) и переменная `months` для подсчета количества месяцев.

В цикле `while` проверяется условие, что размер вклада `deposit` меньше целевой суммы `target`. Если это условие выполняется, то размер вклада увеличивается на 5% (умножается на 0.05) и количество месяцев увеличивается на 1.

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

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