9) Спортсмен, начав тренировки, в первый день пробежал 5 км. Каждый следующий день он увеличивал свой пробег на 10% от пробега предыдущего дня. В какой день суммарный пробег за все дни превысит 100 км?
Ответы
Ответ дал:
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад