Nuanius
7 год назад
На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пяточка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.
Только это надо решить в Delphi.
ОТВЕТЫ
Kaaplamab
Jul 19, 2019
Var m,d1,d2,dn,k:integer;
begin
write(Вес Винни-Пуха (г): );
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dnlt;=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
begin
write(Вес Винни-Пуха (г): );
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dnlt;=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
Можно знаками и таблицами,ибо инным способом. Просто я работаю в Коралле;)
168
Смежные вопросы:
