На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пяточка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рожден...
На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пяточка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.
Только это надо решить в Delphi.
Гость
Ответ(ы) на вопрос:
ГостьМожно знаками и таблицами,ибо инным способом. Просто я работаю в Коралле;)
Гость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
Не нашли ответ?
Похожие вопросы