Начав тренировки, спортсмен пробегает 10 км.Последующие дни он увеличивал свой пробег на 10%. Через, сколько дней суммарный путь спортсмена превысит 100 км. Паскаль. С использованием while

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

Программа на Pascal:

program RunningDistance;
var
distance, day: integer;
totalDistance: real;
begin
distance := 10;
totalDistance := 10;
day := 1;
while totalDistance <= 100 do
begin
distance := Round(distance * 1.1);
totalDistance := totalDistance + distance;
day := day + 1;
end;
writeln('Спортсмен пробежит более 100 км через ', day, ' дней.');
end.

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