Царь Кощей все свои богатства разместил в швейцарском банке. Ему обещали, что каждый год...

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;