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

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

program LoseWeight;
var
weight : real;
days : integer;
begin
weight := 100;
days := 0;

while weight > 80 do
begin
weight := weight - weight * 0.01;
days := days + 1;
end;

writeln('Boxer will lose weight in ', days, ' days');
end.