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