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

Есть ответ
17.12.2022
222

Ответ


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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.