Question

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

Answer 1

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

Answer 2

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