Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить какой суммарный путь он пробежал за первые 7 дней тренировок.
Написать программу в Pascal

Предыдущий
вопрос Следующий
вопрос

program SkiRunner;
var
distance, totalDistance: real;
day: integer;
begin
distance := 10;
totalDistance := 10;
for day := 2 to 7 do
begin
distance := distance * 1.1;
totalDistance := totalDistance + distance;
end;
writeln('Суммарный пробег за первые 7 дней тренировок: ', totalDistance:0:2, ' км');
end.

Эта программа вычисляет суммарный путь, который лыжник пробежал за первые 7 дней тренировок, учитывая увеличение дистанции на 10% каждый день.