Составить программу в PascalABC

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

Question

Добрыня

15 июля, 09:32

+4

Ответы (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

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