Составить программу в PascalABC За сколько дней может похудеть спортсмен со 100 до 80 кг,...

Question

Составить программу в PascalABC
За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?

Answer 1

Var m:real; k:integer;
begin
m:=100; k:=0;
while m>80 do
 begin
 k:=k+1;
 m:=m*0.99;
 end;
writeln('k = ',k);
end.

Результат:
k = 23