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