Question

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

Answer 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.