Question

9) Спортсмен, начав тренировки, в первый день пробежал 5 км. Каждый следующий день он увеличивал свой пробег на 10% от пробега предыдущего дня. В какой день суммарный пробег за все дни превысит 100 км?

Answer 1

Объяснение:

var b, q, s: real;

   i, n, k: integer;

begin

 b := 5;

 q := 1.1;

 s := b;

 i := 1;

 while (b <= 20) or (s <= 100) do

   begin

     inc(i);

     b := b * q;

     if (n = 0) and (b > 20) then n := i;

     s := s + b;

     if (k = 0) and (s > 100) then k := i

   end;

 writeln('More than 20 km in one day: ', n, ', more than 100 km totally: ', k);

 readln

end.