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