Question

Царь Кощей все свои богатства разместил в швейцарском банке. Ему обещали, что каждый год он будет получать прибыль 13%. Сколько лет придется прожить Бессмертному, чтобы накопить на личный самолет? Написать программу используя данные строчки кода: var Begin End Writeln Readln While … do Repeat … until

Answer 1

Program Money;

var
  n: integer;
  m, need: real;
begin
  writeln('Введите кол-во денег Кощея');
  readln(m);
  writeln('Введите стоимость самолёта');
  readln(need);
  while m < need do begin 
    m := m + 0,13 * m;
    inc(n);
  end;
  writeln('Нужное кол-во лет - ', n);
end;
  

Answer 2

var beginCapital, annualProfit, planeCost: real; years: integer; begin beginCapital := 1000000; // начальный капитал в банке annualProfit := 0.13; // годовая прибыль planeCost := 5000000; // стоимость самолета

years := 0; while (beginCapital < planeCost) do begin beginCapital := beginCapital + beginCapital * annualProfit; // увеличиваем капитал на годовую прибыль years := years + 1; // увеличиваем количество лет end;

Writeln('Царь Кощей должен прожить ', years, ' лет, чтобы накопить на личный самолет.'); Readln; end.