Question

Винни-Пух съел у Кролика в 1 день 100 г. варенья, во-второй ещё 100 г., в 3-й и все последующие дни он съедал столько, сколько за два предыдущих дня вместе взятых.
1) Сколько килограмм пиши он съест на 15 день рождения
2 На какой день рождения.
суммарный объем съеденной пиши привысит тонну.

НАПИШИТЕ ПРОГРАММУ НА PASCAL
ОЧЕНЬ СРОЧНО​

Answer 1

program dr_vinii_i_varenie;

var

d1,d2,d3,s:int64;

n:integer;

begin

// первая часть

d1:=100;

d2:=100;

s:=d1+d2;

n:=2;

while n<=15 do begin

d3:=d1+d2;

s:=s+d3;

d1:=d2;

d2:=d3;

n:=n+1;

end;

writeln(s div 1000);

// вторая часть

while s<=1000000 do begin

d3:=d1+d2;

s:=s+d3;

d1:=d2;

d2:=d3;

n:=n+1;

end;

writeln(n);

end.