Напишите программу: винипух съедает 100 грамм варенья в первый день, во второй день ещё 100 грамм, в третий день 200 грамм, В каждый последующий день он съедает кол-во варенья равное сумме количества варенья в 2 прошедших дня. За сколько дней он съест К грамм варенья?

Паскаль 10 класс

Question

Информатика

Ванютя

15 сентября, 00:26

Напишите программу: винипух съедает 100 грамм варенья в первый день, во второй день ещё 100 грамм, в третий день 200 грамм, В каждый последующий день он съедает кол-во варенья равное сумме количества варенья в 2 прошедших дня. За сколько дней он съест К грамм варенья?

Паскаль 10 класс

+5

Ответы (1)

Знаете ответ?

Валентиныч · Answer 1

Var k, k1, k2, kn, n, s:integer;

begin

write ('k = ') ;

readln (k) ;

k1:=100;

k2:=100;

s:=k1+k2;

if k<=k1 then n:=1 else n:=2;

while s
begin

n:=n+1;

kn:=k1+k2;

s:=s+kn;

k1:=k2;

k2:=kn;

end;

writeln ('n = ', n) ;

end.

Пример:

k = 1100

n = 5