Журналист
Kepirak 3 ноября 2019 в 09:28

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

Написать программу используя данные строчки кода:
var
Begin
End
Writeln
Readln
While … do
Repeat … until

Program Money;

var
  n: integer;
  m, need: real;
begin
  writeln(Введите кол-во денег Кощея);
  readln(m);
  writeln(Введите стоимость самолёта);
  readln(need);
  while m lt; need do begin 
    m := m + 0,13 * m;
    inc(n);
  end;
  writeln(Нужное кол-во лет - , n);
end;
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте