** каждом следующем дне рождении Винни съедает столько же меда, сколько съел ** двух...

Question

На каждом следующем дне рождении Винни съедает столько же меда, сколько съел на двух предыдущих вместе. На двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. Определить, сколько кг меда он съест на десятом дне рождении.
Программа должна быть написана с помощью цикла в паскале.

Answer 1

Var
  i:integer;
  s,p,p1:real;
begin
p:=0.1;
p1:=0.1;
for i:=3 to 10 do
begin
  s:=p1+p;
  p1:=p;
  p:=s;
end;
writeln('Ответ: ',s);
end.