Question

Спортсмен приступает к тренировкам по следующему графику: в первый день он должен пробежать 10 км; каждый день увеличивать дистанцию на 10% от нормы предыдущего дня. Как только дневная норма достигнет или превысит 25 км, необходимо прекратить её увеличение и далее пробегать ежедневно ровно 25 км. Через сколько дней спортсмен пробежит суммарный путь более 100 км(паскаль)
Исходные данные: 10 10 100
Результат: 8

Answer 1

Ответ:

var all_s, day: integer;

   r, s, s_0:real;

begin

 readln(s, r, all_s);

 s_0:= 0;

 day:= 0;

 r:= r / 100;

 while s_0 <= all_s do begin

   s_0:= s_0 + s;

   s:= s + (s * r);

   day:= day + 1;

 end;

 write(day);

end.

Объяснение:

Программа выведет кол-во дней, за которые спортсмен пробежал от 100+ км