Винни-Пух съел у Кролика в 1 день 100 г. варенья, во-второй ещё 100 г., в 3-й и все последующие дни он съедал столько, сколько за два предыдущих дня вместе взятых.
1) Сколько килограмм пиши он съест на 15 день рождения
2 На какой день рождения.
суммарный объем съеденной пиши привысит тонну.
НАПИШИТЕ ПРОГРАММУ НА PASCAL
ОЧЕНЬ СРОЧНО
1) Сколько килограмм пиши он съест на 15 день рождения
2 На какой день рождения.
суммарный объем съеденной пиши привысит тонну.
НАПИШИТЕ ПРОГРАММУ НА PASCAL
ОЧЕНЬ СРОЧНО
Answers & Comments
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.