Составить программу в PascalABC За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?
Составить программу в PascalABC
За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 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
Не нашли ответ?
Похожие вопросы