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

Программа должна быть написана с помощью цикла в паскале.

Question

Паллада

13 ноября, 06:06

+3

Ответы (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.