Программа паскаль. В первый день спортсмен пробежал 10 км, в каждый следующий день он увеличивал дистанцию забега на 10% от предыдущего дня. Найдите количество километров которые он поробежал за n количество дней.
Программа паскаль. В первый день спортсмен пробежал 10 км, в каждый следующий день он увеличивал дистанцию забега на 10% от предыдущего дня. Найдите количество километров которые он поробежал за n количество дней.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program RunnerDistance;
var
distance, i, n: integer;
totalDistance: real;
begin
distance := 10;
totalDistance := distance;
writeln('Enter the number of days:');
readln(n);
for i := 2 to n do
begin
distance := round(distance * 1.1);
totalDistance := totalDistance + distance;
end;
writeln('Total distance run by the athlete in ', n, ' day(s): ', totalDistance:0:2, ' km');
end.