Question

99 баллов,Напишите пожалуйста программу в Паскаль abc , Медведь, впадая в зимнюю спячку, весил 200 кг. Каждый день во время сна он худеет на 1700г. Через сколько дней медведь проснется, если условием для выхода из зимней спячки является снижение веса на 50% от первоначального? Использовать цикл While.

Answer 1

Program n1;
var t,a: real;
k: integer;
begin
a:=200;
k:=0;
t:=a;
while(t>a/2) do
begin
t:=t-1.7;
k:=k+1;
end;
write('через ',k,' дней');
end.

Answer 2

Конечно! Вот программа на языке Pascal, которая решает задачу:

pascalCopy code
program BearHibernation;

var
  weight: real;
  days: integer;

begin
  weight := 200;  // Изначальный вес медведя
  days := 0;     // Счетчик дней

  while weight > (200 / 2) do
  begin
    weight := weight - 1.7;  // Каждый день медведь теряет 1700 грамм
    days := days + 1;
  end;

  writeln('Медведь проснется через ', days, ' дней.');
end.

Программа использует цикл while, который выполняется, пока вес медведя больше половины его изначального веса (200 кг / 2 = 100 кг). Внутри цикла происходит уменьшение веса медведя на 1.7 кг каждый день и увеличение счетчика дней. Когда вес медведя становится меньше или равным половине изначального веса, цикл прекращается.

Результат выводится на экран с помощью writeln, и программа сообщает, через сколько дней медведь проснется.

Пожалуйста, убедитесь, что в вашей среде разработки Pascal код находится в файле с расширением ".pas" и выполняется с помощью компилятора Pascal.