Напишите программу в pascalСергей страдает ожирением в процессе голодании он каждую неделю скидывает 3% от предыдущего веса изначально он весил 150 кг в машину он влезет когда будет весить 96 кг Через сколько недель он влезет в машину?
Напишите программу в pascalСергей страдает ожирением в процессе голодании он каждую неделю скидывает 3% от предыдущего веса изначально он весил 150 кг в машину он влезет когда будет весить 96 кг Через сколько недель он влезет в машину?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
weight, decreasedWeight: real;
weeks: integer;
begin
weight := 150;
weeks := 0;
while weight > 96 do
begin
decreasedWeight := weight * 0.03;
weight := weight - decreasedWeight;
weeks := weeks + 1;
end;
writeln′Через′,weeks,′недельонвлезетвмашину.′'Через ', weeks, ' недель он влезет в машину.'′Через′,weeks,′недельонвлезетвмашину.′;
end.
Эта программа считает, через сколько недель Сергей сможет влезть в машину, если каждую неделю он скидывает 3% от предыдущего веса. В итоге программа выводит количество недель необходимых для достижения веса 96 кг.