Question

Напишите программу в Pascal сергей страдает ожирением в процессе голадания он каждую неделю скидывает 3%от предыдущего веса, изночально он весил 150кг в машину он влезет когда будет весить 97кг Через сколько недель он влезет в машину?

Answer 1

PROGRAM zhirobas;

VAR  

MASSA:REAL;

NED:INTEGER;

BEGIN

MASSA:=150;

NED:=0;

WHILE (MASSA>=97) DO

BEGIN

MASSA:=MASSA-MASSA*0.03;

NED:=NED+1;

END;

WRITELN('Через ',NED,' недель Сергей влезет в машину')

END.

Answer 2

Для решения этой задачи в Pascal, вы можете использовать следующую программу:

pascalCopy code
program WeightLoss;
var
  weight, targetWeight: real;
  weeks: integer;
begin
  weight := 150; // Изначальный вес Сергея
  targetWeight := 97; // Целевой вес
  
  weeks := 0; // Начальное количество недель
  
  // Пока вес Сергея больше или равен целевому весу, продолжаем считать недели
  while weight >= targetWeight do
  begin
    weight := weight * 0.97; // Уменьшаем вес на 3% каждую неделю
    weeks := weeks + 1; // Увеличиваем счетчик недель
  end;
  
  writeln('Сергей влезет в машину через ', weeks, ' недель.');
end.

Эта программа начинает с изначального веса Сергея в 150 кг и уменьшает его на 3% каждую неделю, пока он не достигнет целевого веса 97 кг. Как только вес станет меньше 97 кг, программа выведет количество недель, которое потребуется Сергею, чтобы влезть в машину.