Question

На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пяточка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха. Только это надо решить в Delphi.

Answer 1

Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100; 
dn:=100; k:=2;
while dn<=m do
 begin
 dn:=d1+d2;
 d1:=d2;
 d2:=dn;
 k:=k+1;
 end;
writeln('k = ',k,' dn = ',dn);
end.

Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300

Answer 2

Можно знаками и таблицами,ибо инным способом. Просто я работаю в Коралле;)

Answer 3

Вот пример решения этой задачи на Delphi:

delphiCopy code
program WinnieThePooh;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  day: Integer;
  previousDayFood, currentDayFood, totalFood: Double;
  poohWeight: Double;

begin
  // начальные условия
  previousDayFood := 100;
  currentDayFood := 100;
  totalFood := previousDayFood + currentDayFood;
  poohWeight := 50; // предполагаемый вес Винни-Пуха в килограммах

  day := 2; // начинаем со второго дня рождения

  while totalFood / 1000 <= poohWeight do // переводим граммы в килограммы
  begin
    // вычисляем количество пищи на текущий день
    currentDayFood := 2 * previousDayFood;
    // обновляем общее количество пищи
    totalFood := totalFood + currentDayFood;
    // обновляем количество пищи на предыдущий день
    previousDayFood := currentDayFood;
    // переходим к следующему дню
    Inc(day);
  end;

  WriteLn('Винни-Пух превысит свой вес на ', day, '-й день рождения');
  ReadLn;
end.

Эта программа выводит номер дня рождения, на котором съеденная Винни-Пухом пища превысит его вес. В данном примере мы предполагаем, что вес Винни-Пуха составляет 50 килограммов, а начальное количество пищи на двух первых днях рождения равно 100 граммам. Вы можете изменить эти значения в соответствии с вашими потребностями.