Спортсмен, начав тренировки, в первый день пробежал 5 км. Каждый следующий день он увеличивал свой пробег на 10% от пробега предыдущего дня. В какой день суммарный пробег за все дни превысит 100 км? Выполнить в qbasic

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

Для решения этой задачи, можно использовать следующий код на QBasic:

REM Длина первого дня
DIM day(1 TO 100)
day(1) = 5
REM Увеличение пробега на 10% после первого дня
FOR i = 2 TO 100
day(i) = day(i - 1) * 1.1
NEXT i
REM Вычисление суммарного пробега за все дни
total_distance = 0
day_num = 1
DO
total_distance = total_distance + day(day_num)
day_num = day_num + 1
LOOP UNTIL total_distance > 100
PRINT "Суммарный пробег превысит 100 км на " day_num " день."

Этот код создает массив day, в котором хранятся значения пробега спортсмена на каждый день. Затем он считает суммарный пробег за все дни и выводит день, когда пробег превысит 100 км.