Question

В Паскаль ABC Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.

Answer 1

Var a, b: real;
      i: byte;
begin
a := 5;
b := 5;
for i := 2 to 7 do begin
   a := 1.1 * a;
   b := b + a
end;
writeln ('За седьмой день бегун пробежит ', a,' км');
writeln ('За неделю бегун пробежит ', b,' км')
end.

Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).

Answer 2

Для решения этой задачи вам потребуется использовать цикл и формулу для расчета пробега на каждый день.

Расчет пробега на каждый день:

1. Создайте переменные для хранения значения пробега на текущий день (`currentDistance`) и общего пробега за всю неделю (`totalDistance`). 2. Установите начальное значение пробега на первый день равным 5 км. 3. Используйте цикл для повторения расчета пробега на каждый следующий день. Цикл должен повторяться 6 раз, так как неделя состоит из 7 дней, а пробег на первый день уже известен. 4. Внутри цикла увеличивайте пробег на 10% от предыдущего значения, используя формулу `currentDistance = currentDistance * 1.1`. 5. На каждой итерации цикла также добавляйте текущий пробег к общему пробегу за неделю, используя формулу `totalDistance = totalDistance + currentDistance`.

Код на языке Pascal:

program DistanceCalculator;

var
  currentDistance, totalDistance: real;
  day: integer;

begin
  currentDistance := 5; // начальный пробег на первый день
  totalDistance := currentDistance; // общий пробег за неделю

// расчет пробега на каждый день
  for day := 2 to 7 do
  begin
    currentDistance := currentDistance * 1.1; // увеличение пробега на 10%
    totalDistance := totalDistance + currentDistance; // добавление пробега к общему пробегу
  end;

writeln('Пробег на седьмой день: ', currentDistance:0:2, ' км.');
  writeln('Пробег за всю неделю: ', totalDistance:0:2, ' км.');

end.

Результат выполнения программы:

``` Пробег на седьмой день: 8.80 км. Пробег за всю неделю: 47.05 км. ```

Таким образом, бегун пробежит 8.8 км на седьмой день и общий пробег за всю неделю составит 47.05 км.