Напишите программу : винипух съедает 100 грамм варенья в первый день, во второй день ещё 100 грамм, в третий день 200 грамм, в каждый последующий день он съедает кол-во варенья равное сумме количества варенья в дня. за сколько дней он съест к грамм варенья? паскаль 10 класс
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
k = 1100
n = 5