Question

ИНФОРМАТИКА 9 КЛАСС! СРОЧНО!!! ЗАДАЧА!! ПОМОГИТЕ!!!
Задача. Винни-Пух съел у Кролика в 1 день 100 г. варенья, во-второй ещё 100 г., в 3-й и все последующие дни он съедал столько, сколько за два предыдущих дня вместе взятых. Написать программу в какой день Винни-Пух съест всё варенье у Кролика, если известно, что у него имеется k килограмм варенья.
Напишете, пожалуйста на языке Паскаль, и если можно еще блок-схему. НО ПРОГРАММА ВАЖНЕЕ!

Answer 1

Var a1,a2,a,s,k:real; n:integer;
begin
a1:=100; a2:=100;
s:=a1+a2;
n:=2;
write('k = ');
readln(k);
k:=k*1000;
while s<k do
 begin
 a:=a1+a2;
 s:=s+a;
 a1:=a2;
 a2:=a;
 n:=n+1;
 end;
writeln('n = ',n);
end.

Пример:
k = 2
n = 6