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

Answer 2

Задача: Винни-Пух и варенье

Дано: - Винни-Пух съедает у Кролика в первый день 100 г варенья, во второй день ещё 100 г, а в третий и последующие дни он съедает столько, сколько за два предыдущих дня вместе взятых. - Известно, что у Винни-Пуха имеется k килограмм варенья.

Нужно: - Написать программу на языке Паскаль, которая определит в какой день Винни-Пух съест все варенье у Кролика.

Решение:

Для решения этой задачи можно использовать цикл, который будет выполняться до тех пор, пока количество съеденного варенья не превысит или не станет равным k килограммам.

```pascal program WinnieThePooh;

var day: Integer; eaten: