Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какой день он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите!
More Questions From This User See All
Answers & Comments
Verified answer
const
s = 20;{поменять на 100 для второй задачи}
var
days: integer;
distance, day_distance: real;
begin
days := 1;
day_distance := 10;
distance := day_distance;
repeat
day_distance := day_distance * 1.1;
distance := distance + day_distance;
days := days + 1;
until distance >= s;
writeln(days);
end.