• Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какой день он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите!

Ответы 1

  • const

       s = 20;{поменять на 100 для второй задачи}

    var

       days: integer;

       distance, day_distance: real;

    begin

       days := 1;

       day_distance := 10;

       distance := day_distance;

       

       repeat

           day_distance := day_distance * 1.1;

           distance := distance + day_distance;

           days := days + 1;

       until distance >= s;

       writeln(days);

    end.

    • Автор:

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

Войти через Google

или

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

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

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