Приск
6 год назад
Составить программу в PascalABC
За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?
ОТВЕТЫ
Абрам
Jul 9, 2019
Var m:real; k:integer;
begin
m:=100; k:=0;
while mgt;80 do
begin
k:=k+1;
m:=m*0.99;
end;
writeln(k = ,k);
end.
Результат:
k = 23
begin
m:=100; k:=0;
while mgt;80 do
begin
k:=k+1;
m:=m*0.99;
end;
writeln(k = ,k);
end.
Результат:
k = 23
110
Смежные вопросы:
