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

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

Ответы 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;  
    • Автор:

      frau frau
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years