Винни-Пух съел у Кролика в 1 день 100 г. варенья, во-второй ещё 100 г., в 3-й и все последующие дни он съедал столько, сколько за два предыдущих дня вместе взятых.
1) Сколько килограмм пиши он съест на 15 день рождения
2 На какой день рождения.
суммарный объем съеденной пиши привысит тонну.
НАПИШИТЕ ПРОГРАММУ НА PASCAL
ОЧЕНЬ
nastyalunina22
3
25.02.2020 17:15
1
Другие вопросы по теме Информатика
nikusha10
18.08.2019 08:00
AzalieySagaz
15.05.2020 10:06
Ангелина0611
15.05.2020 10:05
Lunitoes
05.06.2019 10:30
kolya14445
05.06.2019 10:30
caramelka05
06.03.2020 22:58
бабуся3
27.11.2020 10:09
hdjdjndn
27.11.2020 10:08
Популярные вопросы
- С, . 10. переведите предложения на язык, употребляя глаголы в нужном времени....
1 - Петя купил большое мороженное в магазине: он сначала отдал продавцу 50...
2 - На вопрос сколько кормушек повесил ваня он ответил: когда прилетели синицы...
2 - За 2с прямолинейного равноускоренного движения тела м,увеличив свою скорость...
1 - Имеют ли глаголы с деепричастиями общие грамматические значения?...
1 - Сообщение: занятия и ремёсла древних китайцев....
1 - Кошка и мышка решили искупаться в пруду ночью пока их ни кто не видит...
3 - Решить метод интервалов (x-5)(x+3) или =0...
1 - Как доказать, что этот текст публицистический и что тип описание? в числе...
3 - Радиус сферы 5 см. в сферу вписан конус , радиус его основания 4 см. найдите...
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.