Задача по информатике в паскале за сколько дней боксер похудеет со 100 кг до 80 кг., если в день он теряет 1 % своего веса?

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

program LoseWeight;
var
weight, days: integer;
begin
weight := 100; // начальный вес боксера
days := 0; // начальное количество дней
while weight > 80 do
begin
weight := weight - round(weight * 0.01); // уменьшаем вес на 1% и округляем до целого
days := days + 1; // увеличиваем количество дней
end;
writeln('Боксер похудеет за ', days, ' дней');
end.

В этой программе мы используем цикл while, чтобы вычислить, сколько дней потребуется боксеру, чтобы похудеть с 100 кг до 80 кг. Каждый день боксер теряет 1% своего веса, и мы уменьшаем его вес на это количество, пока он не достигнет 80 кг. На выходе программа выведет количество дней, за которое боксер похудеет.